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Vorwort 


Schreibt man ein Grafikbuch über den Amiga, so 
bleibt einem an dieser Selle wohl kaum etwas anderes 
übrig, als die besonderen Grafikleistungen des Amigas 
hervorzuheben. Dabei wollen wir es dann aber auch be- 
lassen, da Ihnen ja wohl die theoretischen Grafik- 
fähigkeiten Ihres Computers bekannt sein dürften, und 
sei es nur aus irgendwelchen Spielen, Grafikdemos 
oder auch Malprogrammen. Sobald man aber die Gra- 
fikmöglichkeiten durch eigene Programme nutzen möch- 
te, stellt man sehr schnell fest, wie unergründlich 
die Wege durch den Amiga sind. Nach endlosen Compi- 
ler-Durchläufen und bei der dazugehörenden Fehler- 
suche endet man schließlich in einem Zustand, bei dem 
jede "Guru Meditation" einen in Trance versetzten 
kann. Solche Erfahrungen möchten wir Ihnen, zumindest 
im Bereich der Grafikprogrammierung, durch dieses 
Buch gerne ersparen. Dabei sei jedoch gesagt, daß bei 
aktiver Amiga-Programmierung niemand vor solchen 
Erlebnissen sicher ist, auch mit noch sovielen guten 
Büchern nicht. Man kann allerdings nicht leugnen, daß 
gerade in diesem Fall, Bücher über die Systemprogram- 
mierung einen unschätzbaren Wert darstellen. So er- 
freut es einen dann auch, wenn gerade dieser recht 
trockene Stoff bereits im Orginal nicht todernst be- 
handelt wird. Beschreibungen wie die der Fehlerwar- 
nung der SizeWindow-Routine (siehe Anhang C) geben 
einem durchaus wieder neue Hoffnung, zumindest bis zu 
dem Zeitpunkt wo der Amiga wiedereinmal seine spiri- 
tistischen Neigungen rausläßt. Alles in allem hat uns 
das Schreiben dieses Buches jedoch eine Menge ge- 
bracht: Spaß, Arger, weniger Schlaf, einen größeren 
Kalorienverbrauch in der Zeit zwischen 22 und 2 Uhr, 
sowie eine gehörige Portion Selbstbeherrschung. Uns 
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bleibt abschließend nichts weiter übrig, als Ihnen 
bei den nun folgenden Sitzungen mit Ihrem Amiga viel 
Spaß und möglichst wenig "Gurus" zu wünschen. 


Einleitung 


Wir möchten Ihnen hier zunächst ein paar Richt- 
linien vermitteln, die Ihnen beim Verständniß der 
einzelnen Abschnitte von Nutzen sein werden. Hält man 
über Computer etwas schriftlich fest so hat man 
grundsätzlich zwei Möglichkeiten: entweder man über- 
setzt konsequent Begriffe ins Deutsche, oder man 
verwendet Sie direkt und geht davon aus, daß jeder 
weiß was gemeint ist. 


Diese beiden, von den Verlagshäusern unterschied- 
lich gehandhabten "Philosophien", haben sicherlich 
Vor- und Nachteile, die wir jedoch garnicht erst 
versucht haben gegeneinander aufzuwiegen. Wir haben 
uns ohne zögern für den umgangssprachlichen Ton 
entschieden, der die Amiga-spezifischen Begriffe 
"natürlich" in ihrem Orginal beläßt. Bei der System- 
nahen Programmierung ist dies besonders sinnvoll, da 
dort Begriffe und Parameter auftauchen, die Sie auch 
bei Ihrem C-Compiler wiederfinden. Dabei seien be- 
reits hier die Include-Files bemerkt, die Sie bei 
ihrem C-Compiler in dem Directory "include" finden. 
Dort sind sämtliche Routinen und Datenstrukturen des 
Amiga-Betriebssytems definiert und zwar "natürlich" 
in Englisch. 


Da dieses Buch keine Einführung in die Programmier- 
sprache C sein soll, setzen wir bei Ihnen ein Minimum 
an Amiga-Wissen voraus, daß Begriffe wie "Icon", 
"Pixel" und "Screen" beinhalted. Umgangssprachlich 
bedeutet aber auch, daß wir Begriffe wie "Intuition" 
oder "RastPort" verschieden verwenden. Reden wir von 
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dem RastPort oder dem ViewPort, so meinen wir in 
erster Linie die RastPort-Datenstruktur, bzw. die 
ViewPort-Datenstruktur. Ein Zeiger auf einen solchen 
"Port" ist dann logischerweise ein Adreßzeiger auf 
die zugehörige Datenstruktur. Sagen Ihnen auch diese 
Begriffe noch nichts, dann sollten Sie in diesem Buch 
keine Abschnitte oder Kapitel überspringen, da 
Begriffe nur bei der Einführung erklärt werden. Die 
Abschnitte und Kapitel bauen aufeinander auf, so daß 
wir nach der Einführung von Begriffen meißtens bei 
der kürzeren, umgangssprachlichen Form bleiben. So 
kommt es, daß Sie Worte wie "Bildschirmwiederho|- 
speicherbereich" in diesem Buch nicht finden werden, 
sieht man mal von dieser Stelle hier ab. 
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In diesem Kapitel geht es um die Grafikdarstellung 
auf dem Bildschirm und um die Grafikmöglichkeiten des 
Amiga. Es wird nicht nur auf die einzelnen Grafikmodi 
LoRes, HighRes, Interlace, Extra-Halfbright und Hold- 
And-Modify, sowie die Playfields eingegangen, sondern 
auch auf die Grafikhardware, also z.B. den Copro- 
zessor Blitter, der bei der Grafikprogrammierung eine 
wichtige Rolle spielt. In diesem Zusammenhang werden 
auch die Verschiedenen Arten des Speichers: CHIP- und 
FAST-Memory erläutert. 


In diesem Abschnitt geht es um die Unterschiede in 
den Qualitäten der Bildschirmausgabe und um Begriffe 
wie Pixel, RGB, Bitplane und BitMap. 

Bei der Brkdschirmausgabe eines Computers trifft 
man auf die unterschiedlichsten Qualitäten und Dar- 
stellungsmöglichkeiten der verschiedenen Systeme. Im 
Grunde arbeiten sie jedoch alle nach dem gleichen 
Prinzip. Das Bild setzt sich aus vielen kleinen Punk- 
ten, genannt Pixels, zusammen. Die Qualitätsunter- 
schiede verschiedener Systeme und/oder Grafikmodi 
entstehen im wesentlichen durch drei Faktoren: 


I. Die Auflösung, also aus wievielen Punkten sich 
das Bild zusammensetzt. 

Il. Die Intensität und Farbmöglichkeiten jedes ein- 
zelnen Pixels, also wieviel verschiedene Hellig- 


keits und Farbstufen jeder Pixel annehmen kann. 


Ill. Die Frequenz, mit der die Bilder aufgebaut wer- 
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den, also wieviel Bilder letztendlich pro Sekun- 
de auf dem Bildschirm erscheinen. 


Die Auflösung ist verantwortlich für die Schärfe 
des Bildes, Intensität und Farbmöglichkeiten für 
Farbabstufungen und fließende Farbübergänge, sowie 
schließlich die Frequenz für die flimmerfreie Dar- 
stellung auf dem Bildschirm. 


Computerintern sieht das ganze ungefähr so aus: 
Jedem Pixel ist genau ein Bit im Speicher des Compu- 
ters zugeordnet. Ist es gesetzt (1), so ist der Pixel 
an, andernfalls (0) aus. Der Bildschirm ist eine Zu- 
sammensetzung aus "Einser" und "Nullen", die die Bit- 
plane ergeben. Bildhaft gesehen ist die Bitplane eine 
Fläche von Nullen und Einsen. Damit hätten wir jedoch 
lediglich die Möglichkeit, einen Punkt auf dem Bild- 
schirm zu setzen oder nicht. Um die Farbe der Pixels 
zu beeinflussen, braucht man jedoch mehr Information, 
als ein Bit. Dazu legt der Amiga mehrere Bitplanes 
an, die sich "überlappen". Bei zwei Bitplanes- setzt 
sich die Information für ein Pixel aus einem Bit aus 
der ersten Bitplane und einem Bit aus der zweiten 
Bitplane zusammen. Somit kann man jedem Pixel bereits 
vier Farben zuordnen, eben die Binärkombinationen 00, 
01, 10 und 11. Durch hinzufügen weiterer Bitplanes, 
kann man jedem Pixel 2 hoch (Anzahl an Bitplanes) 
Farben über die Farbregister zuordnen. 
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Bitplane 0 


010101000010011100000 

Bitplane 1 

rT0000I010101000010011T10000C 

0000011011001 2, 2 12 20T 0.201.111 Bitplane 2 
0'01:0100001:0011100000 
I110011ırr1ın2N2r172r029Nn17111 


Bitplane 3 


00000:1]01'001100100010001111 


000001011100001000100 
01010101000010101011ı 


ITTIT 11T T 1 T 1 1T TUT TI 11 
III I 1111111 111111111010 
T7111710130101011110101 
10101171010:201ı010101711ı 
110101010101010101010 
ı01010101071010001010 


BILD 1.1.: Farbdarstellung durch Bitplanes 


In den Farbregistern steht dann der eigentliche 
Farbwert (einer von 4096), den das Farbsignal als 
RGB-Signal an den Monitor leitet. Dieses Farbsignal 
setzt sich aus den Grundfarben Rot, Grün und Blau, 
eben RGB, zusammen. Das Benutzen mehrerer Bitplanes 
und deren "Uberlappen" nennt man Bitmapping. 
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In Bezug auf die Qualität der Bildschirmausgabe 
stehen uns beim Amiga mehrere Möglichkeiten, sprich 
Grafikmodi, zur Verfügung. Aus den Preferences der 
Workbench wissen Sie, daß die Farbpalette des Amiga 
sich aus den Farben Rot, Grün und Blau zusammen- 
setzt, die in verschiedenen Abstufungen miteinander 
gemischt werden können. Da es für jede der drei Far- 
ben 16 Abstufungen gibt, stehen uns also insgesamt 
4096 (16 hoch drei) Farben zur Verfügung. Was die 
Auf lösung betrifft,so ist der Amiga ebenfalls bestens 
ausgerüstet, wobei Amiga nicht gleich Amiga ist. Die 
amerikanische Version verfügt lediglich über maximal 
400 Zeilen, während sein deutscher Bruder bis zu 512 
Zeilen auf den Monitor bringen kann. Zu diesen Unter- 
schieden kommt es durch die verschiedenen Fernseh- 
Normen, wobei die deutsche "PAL"-Version des Amiga 
eben den Vorteil hat, mehrere Zeilen darstellen zu 
können, demgegenüber kann die amerikanische Version 
mit einem flimmerfreieren Bild aufwarten. In diesem 
Zusammenhang beachten Sie bitte, daß wir im folgenden 
von der PAL-Version ausgehen. Sollten Sie also noch 
eine Version der Workbench 1.1 benutzen, sollten Sie 
sich schleunigst eine neuere Version besorgen, da 
diese Version von maximal 400 Zeilen ausgeht und so- 
mit nicht die voile Auflösung unterstützt. Doch nun 
zu den einzelnen Grafikmodi: 


(1.) LoRes: 

Im LoRes-Modus (Low Resolution; Niedrige Auflösung) 
stehen uns auf dem Bildschirm 320 (x-Achse) mal 256 
(x-Achse) Pixel mit je 32 Farbmöglichkeiten zur Ver- 
fügung. Die Beschränkung auf 32 Farben ergibt sich 
durch die begrenzte Anzahl von 32 Farbregistern. 
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(2.) HighRes: 

Der HighRes-Modus (High Resolution; Hohe Auflösung) 
erlaubt uns eine Auflösung von 640 (x-Achse) mal 256 
(y-Achse) Pixel, die jeweils eine von 16 Farben an- 
nehmen können. In diesem Modus kann der Amiga maximal 
vier Bitplanes anlegen, deshalb 16 (2 hoch 4) Farben. 


(3.) Extra Halfbright: 

Der Extra-Halfbright-Modus ist eine Sonderform des 
LoRes, wobei dieser Modus jedoch in der Lage ist, 
sechs Bitplanes anzulegen und somit 64 (2 hoch 6) 
verschiedene Farben auf den Bildschirm zu bringen. 
Dabei gibt es jedoch eine Einschränkung, denn wie be- 
reits erwähnt, stehen dem Amiga nur 32 Farbregister 
zur Verfügung. Im Extra-Halfbright-Modus (wörtlich ü- 
bersetzt: ("Besonderer-Halbhell-Modus") kann man 
selbst nur 32 Farben über die Farbregister aussuchen, 
die restlichen 32 Farben errechnet sich der Amiga aus 
den 32 zugeordneten. Dabei verringert er die Farb- 
werte so, daß eine in etwa halb so helle Farbe ent- 
steht. So wird beispielsweise aus einem Rot ein Oran- 
ge, aus einem Dunkelgrau eben ein Hellgrau. 


(4.) Hold-And-Modify: 

Der H.A.M.- Modus ist ebenfalls eine Besonderheit 
des LoRes und erlaubt es, alle 4096 Farben auf den 
Bildschirm zu bringen. Allerdings gibt es auch hier 
Einschränkungen, ebenfalls hervorgerufen durch die 
Farbregister. 


Im Gegensatz zu den anderen Modi besteht nicht nur 
die Möglichkeit, den einzelnen Pixeln direkt über den 
Farbregistern eine bestimmte Farbe zuzuordnen, son- 
dern man kann ihm eine Farbe relativ zum letzten Pi- 
xel geben. Konkret kann jeweils eines der drei Farb- 
signale Rot, Grün und Blau verändert, bzw. neu einge- 
stellt werden. Um eine Farbveränderung über alle drei 
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Farbsignale zu erreichen, muß man sich also über eine 
Strecke von drei Pixels bewegen. Die ersten zwei Bit- 
planes sind dafür verantwortlich, ob der Pixel einen 
direkten Farbwert, oder einen relativen annehmen 
soll. Also ob das Rot, Grün oder Blau Signal verän- 
dert werden soll, oder ob die vier Bits der letzten 
vier Bitplanes dem Pixel über die Farbregister direkt 
einen Farbwert zuweisen. 


(5.) Interlace: 

Der Interlace - Modus läßt sich mit allen oben ge- 
nannten Grafikmodi kombinieren. Er vergrößert die 
vertikale Auflösung (y-Achse) von 256 auf 512, aller- 
dings verstärkt sich dabei das Flimmern des Bild- 
schirms. Der Amiga teilt sich das vergrößerte Bild 
in zwei Hälften ein, die er abwechselnd um einen hal- 
ben Pixel (vertikal) versetzt auf den Bildschirm 
bringt. Dabei enthält das erste Teilbild alle unge- 
raden Zeilennummern (1,3,5,...,511) und das zweite 
alle geraden(2,4,6,...,512). Das Flimmern entsteht, 
da jetzt nicht mehr 50, sondern nur noch 25 Bilder 
pro Sekunde auf dem Bildschirm erscheinen (Bei der 
amerikanischen Norm von 60 Hz sind es immerhin noch 
30 Bilder pro Sekunde). 


Die Speicherplatzbelegung kann man wie folgt selbst 
für jeden Modi berechnen: Die Anzahl der Pixel, und 
somit auch der Bits einer Bitplane erhält man durch 
das Produkt der Pixel der x-Achse und der Pixel der 
y-Achse. Im LoRes (und nicht Interlace) also: 
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320 x 256 = 81920 


Teilen wir durch 8, erhalten wir die Anzahl an 
Bytes, die eine Bitplane im Speicher belegt, in die- 
sem Fall 10240 Bytes, also genau 10 KByte ( 1KByte = 
1024Bit). Bei HighRes und Interlace sind es dann 
schon 40 KByte pro Bitplane. Nun ist die Anzahl der 
Bitplanes zwar auf sechs beschränkt, um jedoch noch 
einmal den Speicheraufwand von Grafiken zu verdeutli- 
chen noch ein abschließendes Rechenbeispiel: Wäre es 
möglich bei höchster Auflösung alle 4069 Farben di- 
rekt addressiert auf den Bildschirm zu bringen, benö- 
tigte man zwölf Bitplanes (2 hoch 12 = 4096) und 
einen Speicherplatz von: 


640 x 512 x 12 Bit = 480 KByte! 


Als Playfield (Spielfeld) wird beim Amiga das gra- 
fische Ausgabefenster bezeichnet. Es ist eine Ar- 
beitsfläche, die sich vorzugsweise über den ganzen 
Bildschirm erstreckt und einen beliebigen Graf ikmodus 
annehmen kann. Dabei muß das Playfield nicht unbe- 
dingt die gleiche Größe, wie das eigentliche Ausgabe- 
fenster haben, sondern darf auch größer sein. 


Es wird dann jedoch immer nur ein Ausschnitt des 
Playfields gezeigt, der aber durch den Verschiebebe- 
fehl Scroll ruckfrei (SmoothScrolling) über das ganze 
Playfield verschoben werden kann. Eine weitere Beson- 
derheit sind die Dual-Playfields, bei denen zwei 
Playfields sich so überlagern können, daß ein Play- 
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field im Vordergrund und eines im Hintergrund er- 
scheint. Als Beispiel hierzu stellen Sie sich einen 
Flugsimulator vor, bei dem das Playfield im Vorder- 
grund das Cockpit zeigt, während auf dem Playfield im 
Hintergrund alles das dargestellt wird, was sich au- 
Berhalb des Cockpits befindet. 


Betreffend der Sonderchips des Amigas interessieren 
uns im Zusammenhang mit Grafik und ihrer Darstellung 
auf dem Bildschirm vor allem Agnus und Blitter, wobei 
Agnus für die gesamte Videoausgabe, also das Umwan- 
deln der Bitplanes in Video- bzw. RGB-Signale,verant- 
wortlich ist. Für den Grafikprogrammierer ist jedoch 
der Blitter der wichtigere. Seine eigentliche Aufgabe 
ist es, Daten der Bitplanes zu kopieren, verschieben 
und zu verändern. Man kann mit ihm relativ einfach 
verschiedene Teile der Bitplanes, z.B. die Fen- 
ster, in andere Speicherbereiche kopieren, also ver- 
schieben. Des weiteren beinhaltet sein Befehlssatz 
auch Befehle zum Zeichnen von Linien zwischen zwei 
Punkten und zum Füllen von Flächen. Gerade beim Fül- 
len von Flächen erkennt man die wahre Geschwindig- 
keit des Blitters. Obwohl Pixel für Pixel gesetzt 
wird, sieht es so aus, als ob auf dem Bildschirm 
eine Fläche einfach nur "eingeschaltet" und nicht 
erst aufgebaut wird. 


Eine Besonderheit der Grafikhardware, die für die 
Programmierung von besonderer Bedeutung ist, ist die 
Tatsache, daß die Grafikchips nur auf das erste 
(je nach Versiobn halbe oder ganze) MByte zugreifen 
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können. Dieser Speicherbereich wird daher CHIP-Memory 
genannt. Wir werden sehen, daß es daher in vielen 
Fällen wichtig ist, daß bestimmte Daten in diesem 
Speicherbereich liegen. Das Betriebssystem stellt uns 
einige Prozeduren zur Verfügung, mit deren Hilfe man 
einen CHIP-Memory Bereich für eigene Zwecke reser- 
vieren kann. Damit Ihre Programme auf allen Amiga 
Versionen lauffähig sind, sollten Sie CHIP-RAM immer 
explizit allozieren. Sie sollten dies immer beach- 
ten, auch wenn Ihr Rechner nur 512 KByte hat (also 
nur CHIP-Memory). 


In der Textausgabe unterscheidet sich der Amiga 
durchaus von anderen Computersystemen. Während viele 
Computer eine getrennte Text-und Grafikausgabe haben, 
verfügt der Amiga gewissermaßen nur über die Grafik- 
ausgabe. Bei vielen anderen Computern wäre eine reine 
Grafikausgabe zu langsam, so daß bei der Textausgabe 
meistens nur die ASCII-Codes der Schriftzeichen im 
Speicher stehen und nicht deren grafischen Binär- 
codes. Der Amiga ist aber besonders auf dem Gebiet 
der Grafik einer der schnelleren Rechner, so daß die- 
se Technik nicht nötig ist und der Text ebenfalls als 
Grafik ausgegeben wird. Dadurch lassen sich Schrift- 
arten aber auch einfacher verändern und es sind auch 
Zeichensätze (die Fonts des Amiga) möglich, die vor 
allem nicht an eine bestimmte Größe gebunden sind. 
Als Beispiel hierzu ist das Programm Notepad aus der 
Workbench zu empfehlen. Mit ihm lassen sich verschie- 
dene Zeichensätze laden, benutzen und auch ausdru- 
cken. 


14 


Kapitel 2 


Kapitel 2 


Fenster und Screens 


15 


Kapitel 2 Fenster und Screens 


Im ersten Kapitel haben wir uns mit den durch die 
Hardware bedingten Aspekten der Videodarstellung be- 
schäftigt. Für die Grafikprogrammierung ist es aber 
unabdingbar, sich auch mit der Art und Weise ausein- 
anderzusetzten, wie die Systemsoftware die Möglich- 
keiten der Hardware ausnutzt und die Videoanzeige 
verwaltet. Die für den Benutzer sichtbare Anzeige mit 
den bekannten Fenstern, Menus, Gadgets etc., auf der 
wir später auch unsere Grafiken darstellen wollen, 
wird von einem Teil des Betriebssystems verwaltet, 
der Intuition genannt wird. Die Programmierung der 
Intuition ist ein sehr komplexes Thema, das allein 
schon ausreichen würde, um dieses Buch zu füllen. Wir 
werden uns deswegen hier auf eine kurze Einführung 
der wichtigsten Eigenschaften beschränken. Gegen Ende 
dieses Kapitels wird auch das Programm Display.h vor- 
gestellt, das einige wichtige Routinen implementiert, 
die im Verlauf dieses Buches benötigt werden. Es be- 
findet sich auch im "include" Verzeichnis der Be- 
gleitdiskette, aus welchem Sie es unbedingt in das 
gleichnamige Verzeichnis ihrer Arbeitsdiskette kopie- 
ren sollten, falls Sie mit den hier abgedruckten Pro- 
grammen experimentieren wollen. 


Vieleicht haben Sie schon bei irgendeinem Programm 
gesehen, daß es möglich ist, zur gleichen Zeit mehre- 
re Bildteile mit verschiedener Auflösung zu erzeugen, 
wobei jeder der Bildteile samt Inhalt hoch und run- 
ter bewegt werden kann. Ein solcher Bildteil wird vom 
Englischen her Screen (Bildschirm) genannt und steht 
an der untersten Stufe der Intuition-Anzeige. Ein 
Beispiel dafür ist der Workbench-Screen, der immer 
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dann erscheint, wenn Sie eine Diskette "gebootet" ha- 
ben. Es können auch mehrere solcher Screens überein- 
ander liegen. Man kann dann mit Hilfe des Depth-Gad- 
gets (der kleine schwarzer Kasten in der rechten 
oberen Ecke) den momentan im Vordergrund liegenden 
Screen nach hinten befördern, wobei dann der darun- 
terliegende zum Vorschein kommt. Auf einem Screen 
können Sie dann entweder direkt verschiedene Objekte 
darstellen (z.B. Text oder Grafik) oder ein bzw. meh- 
rere Fenster aufmachen, die dann zur Darstellung ge- 
braucht werden. Für uns liegt die besondere Bedeutung 
der Screens darin, daß man für eine Anzeige mit ei- 
ner Auflösung, die nicht mit der der Workbench über- 
einstimmt, einen eigenen Screen aufmachen muß. Dabei 
wird auch die maximale Anzahl von Farben und ihre 
RGB-Zusammensetzung festgelegt. Auch die im ersten 
Kapitel angesprochenen Sondermodi: H.A.M. und Dual- 
Playfield können nur auf einem extra dafür erstellten 
Screen verwendet werden. Beim Öffnen eines Screens 
reserviert das Betriebssystem den für die Bitplanes 
notwendigen Speicher, in dem dann die Bilddaten ge- 
schrieben werden, und initialisiert die Farbregister. 
Wie Sie sehen, ist ein Screen im Grunde eine eigen- 
ständige, softwaremäßig verwaltete Videoanzeige. Die 
Leistung der Intuition besteht unter anderem darin, 
der Hardware mitzuteilen, aus welchem Screen sie die 
Bild- und Farbdaten lesen muß. Dazu wird einfach in 
dem Hardwaregister, der auf den aktuellen Bildschirm- 
speicher zeigt, die Adresse der Bitmap des entspre- 
chenden Screens hineingeschrieben. Um mehrere Screens 
gleichzeitig untereinander darzustellen, wird erneut 
umgeschaltet, sobald der Strahl, der das Bild zeich- 
net, die Zeile erreicht hat, in der der neue Screen 
anfängt. Es ist leider nicht möglich, verschiedene 
Screens nebeneinander darzustellen, sodaß ein Screen 
immer ganz Links anfangen muß. Eine weitere Ein- 
schränkung ist dadurch gegeben, daß der untere Rand 
eines jeden Screens am unteren Bildschirmrand liegen 
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muß. Folglich muß die Summe aus der Screenhöhe in 
Zeilen und der Nummer der Zeile, in der die obere 
Grenze des Screens liegt, die maximale Zeilenanzahl 
bei der verwendeten Auflösung ergeben (512 bei Inter- 
lace, sonst 256.). 


Nachdem Sie nun mit den wichtigsten Eigenschaften 
eines Screens vertraut sind, können wir uns daran ma- 
chen, einen eigenen Screen zu erzeugen. Zu diesem 
Zweck stellt Intution die Funktion ÖOpenS$creen zur 
Verfügung. Diese Routine verlangt als Eingabe einen 
Zeiger auf die NewScreen-Struktur, in der sich alle 
Informationen über die gewünschten Eigenschaften des 
neuen Screens befinden. Dieser Datensatz sieht fol- 
gendermaßen aus: 


Abb. 2.1 Die Screen-Struktur. 
struct NewScreen { 


SHORT LeftEdge, TopEdge 

Width, Height, 

Depth; 
UBYTE DetailPen, BlockPen; 
USHORT ViewModes, 

Type; 
struct TextAttr *Font; 
UBYTE *DefaultTitle; 
struct Gadgets *Gadgets; 
struct Bitamp *CustomBitMap; 


Fi 
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Die Felder LeftEdge und TopEdge geben die Koordina- 
ten der linken oberen Ecke des Screens an. Dabei muß 
LeftEdge immer 0 sein! Width und Height sind entspre- 
chend die Breite und Höhe. Bei der Breite sollten Sie 
darauf achten, daß diese mit der Auflösung (siehe un- 
ten) übereinstimmt. Depth ist für die Anzahl der Bit- 
ebenen, also für die maximale Anzahl der Farben zu- 
ständig. Dabei ist die Farbenanzahl 2 hoch Depth. 
Beachten Sie bei der Wahl der Tiefe die im ersten Ka- 
pitel beschrieben Einschränkungen, die sich aus der 
gewählten Auflösung ergeben. Die beiden Parameter: 
DetailPen und BlockPen bestimmen die Farbe der 
Schrift im Screenbalken und des Balkens selbst. Der 
Titel, der in dem Screenbalken erscheint, ist durch 
*Default Title gegeben. Type gibt an, ob es sich um 
einen Workbench-Screen oder um einen besonderen, vom 
Benutzer erstellten Screen handelt und kann in der 
aktuellen Intuition - Version nur die Werte 
WBENCHSCREEN und CUSTOMSCREEN annehmen. Wenn Sie 
Ihren eigenen Screen aufmachen müssen Sie Type auf 
CUSTOMSCREEN setzen. Am wichtigsten ist das Feld 
ViewModes, da es die Auflösung und die Sondermodi des 
Screens kontrolliert. Die folgende Tabelle wird Ihnen 
über die Werte, die die Auflösung bestimmen, Auf- 
schluß geben: 


Abb 2.2 Die Auflösung eines Screens 


! Gesetzte Flags ! Resultierende Auflösung ! 
| INTERELCE — 1 320 x 512 (interlace) ! 
I HIRES } INTERLCE 1 640 x 512 (interlace) ! 
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Zusätzlich gibt es noch die HAM- und DUALPF-Flags, 
durch die Sie die H.A.M bzw Dual-Playfield Modi ein- 
schalten können. Ein H.A.M Screen mit der Auflösung 
640 x 512 kann also durch den folgenden Wert von 
ViewModes erzeugt werden: 


HIRES ! INTERLACE ! HAM 


Die übrigen Felder der NewScreen-Struktur haben für 
uns momentan keine Bedeutung und sollten mit NULL 
initialisiert werden. Wir werden auf sie in späteren 
Kapiteln zurückkommen. 


Wenn Sie nun die Open$Screen-Funktion aufrufen, wer- 
den Sie einen Zeiger auf die $creen-Struktur von In- 
tution bekommen. In dieser Struktur speichert das Be- 
triebssystem die wichtigsten Daten eines Screens, wie 
z.B. Größe, Position, Koordinaten des Mauspfeils etc. 
Eine genaue Beschreibung der Screen-Struktur finden 
Sie im Anhang A. 


Zum Abschluß dieses Abschnittes folgt ein Beispiel- 
programm, das ein lowRes (320x256) Screen öffnet, ei- 
nen Augenblick wartet und ihn wieder schließt. 


Programm 2.1 Screen 


#include "exec/types.h" 
#include "intuition/intuition.h" 


struct IntuitionBase *IntuitionBase; 
/* NewScreen-Struktur zum Öffnen des Screens */ 


struct NewScreen NewScreen = 


20 


Kapitel 2 Fenster und Screens 


{ 

0, /* x-Koordinate, muß O0 sein ! */ 
0, /* y-Koordinate. */ 
320, /* Breite des Screens. */ 
200, /* Höhe des Screens. */ 
4, /* Tiefe = 4 --> max 16 Farben. */ 
0, /* Vordergrundfarbe. */ 
1, /* Hintergrundfarbe. */ 
NULL, /* "Normaler" lowres-Screen. */ 
CUSTOMSCREEN, /* Screentyp: Eigener Screen. */ 
NULL, /* Standardfont benutzen. */ 
"Beispielscreen", /* Name des Screens. */ 
NULL, /* Keine besonderen Gadgets. a 

main () 


struct Screen *Screen; 
LONG 3: 


/* IntuitionLibrary öffnen, falls Fehler dann 
Programm beenden. */ 


IntuitionBase = (struct IntuitionBase *) OpenLibrary 
("intuition. lTibrary",0); 

if (IntuitionBase == NULL) 

exit(FALSE); 


/* Den neuen Screen öffnen, falls Fehler, dann 
Programm beenden. */ 
Screen = (struct Screen *) 
OpenScreen(&NewScreen); if (Screen == NULL) exit 
FALSE); 
for (j = 0; j < 1000000; j++); /* Abwarten */ 


CloseScreen(Screen); /* Screen schließen */ 
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Beachten Sie, daß vor einem Zugriff auf die Struk- 
turen und Prozeduren der Intution die entsprechende 
Library geöffnet werden muß. Es ist auch ratsam, im- 
mer wieder durch Vergleichen des Resultats mit NULL 
zu prüfen, ob beim Öffnen der Library bzw. später des 
Screens kein Fehler aufgetreten ist. 


In der Intuition-Library gibt es neben OpenScreen 
und CloseScreen noch folgende Routinen zum Umgang mit 
den Screens: 


MakeScreen 
MoveScreen 
ScreenToBack 
ScreenToFront 
ShowTitle 


22 


Kapitel 2 Fenster und Screens 


Daß ein Fenster eines "dieser Rechtecke, die man 
auf dem Bildschirm schieben, verkleinern etc. kann, 
und in denen alles Mögliche erscheint" ist, sollte 
eigentlich jeder Amiga Benutzer wissen. Um aber die 
Fenster sinnvoll zur grafischen Darstellung verwenden 
zu können muß man sich auch die Art und Weise an- 
schauen, wie sie von Intution verwaltet werden. Ein 
Fenster ist eigentlich ein selbständiger Terminal, 
in dem ein Programm samt Ein-/Ausgabe ablaufen kann. 
Es wird beim Offnen einem Screen zugewiesen, und kann 
nur als sein Teil existieren. Es kann natürlich auch 
nicht aus ihm herausbewegt werden. Die Auflösung, 
RGB-Zusammensetzung der Farben und Anzeigemodi werden 
wie schon gesagt von dem Screen übernommen. 


USW. 


Bild 2.1. Die Intuition-Anzeige 
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Gewöhnlich hat ein Fenster auch keine eigene Bit- 
map, was z.B. daran zu erkennen ist, daß beim CLI- 
Fenster der Inhalt gelöscht wird, wenn das Fenster 
verkleinert wird. Andererseits geht aber der Inhalt 
des CLI-Fensters nicht verloren, wenn dieses in den 
Hintergrund geklickt wird. Unter welchen Umständen 
der Fensterinhalt beibehalten wird, hängt von dem so- 
genannten Refresh-Modus ab (engl. auffrischen), der 
beim Offnen des Fensters eingestellt wird. Es stehen 
folgende Modi zur Verfügung: 


(1) SimpleRefresh: In diesem Modus wird der Inhalt 
des Fensters nie zwischengespeichert, was zur Folge 
hat, daß beim Verkleinern, oder Verdecken durch ein 
anderes Fenster der Inhalt verloren geht. 


(2) SmartRefresh: In diesem Modus wird nur der Inhalt 
eines Fensters, das durch ein anderes überdeckt wird, 
zwischengespeichert, und später wieder hergestellt. 


(3) SuperBitMap: Ein solches Fenster besitzt eine ei- 
gene, vom Screen unabhängige Bitmap, so daß sein In- 
halt immer beibehalten wird. Der Nachteil dieses Ver- 
fahrens ist, daß es sehr speicheraufwendig ist. 


Neben den verschieden Refresh-Arten gibt es noch 
einige weitere interessante Eigenschaften, mit denen 
ein Fenster ausgestattet werden kann. Hier sind sie 
alle samt kurzer Beschreibung aufgelistet. Wir werden 
später auf einige besonders wichtige noch genauer 
eingehen. 
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(1) Die Gadgets 

Dies sind Objekte, die in dem Fenster gezeichnet 
werden, und jedesmal wenn sich der Mauspfeil über ih- 
nen befindet, ein Ereignis auslösen können. Intuition 
stellt folgende Systemgadgets zur Verfügung: 


Close-Gadget: Ein Quadrat mit einem Punkt, der sich 
in der linken oberen Ecke des Fensters befindet. Sein 
Klicken soll das Programm zum Schließen des Fensters 
veranlassen (Das Fenster wird aber nicht automatisch 
geschlossen). 


Sizing-Gadget: Befindet sich in der rechten unteren 
Ecke des Fensters und erlaubt dem Benutzer seine 
Größe zu verändern (Die Größenveränderung wird auto- 
matisch von Intution vorgenommen). 


Drag-Gadget: Befindet sich in der Titelleiste und er- 
möglicht dem Benutzer, das Fenster zu verschieben, 
wobei die Verschiebung automatisch von Intuition 
durchgeführt wird. 


Depth-Gadget: Die beiden Quadrate, die sich in der 
rechten oberen Ecke des Fensters befinden. Durch An- 
klicken eines der beiden Quadrate kann der Benutzer 
Intution dazu veranlassen, das Fenster in den Vorder- 
grund, bzw. in den Hintergrund zu setzen. 


Zusätzlich besteht auch noch die Möglichkeit eigene 
Gadgets (Custom-Gadgets) beliebigen Aussehens zu ent- 
werfen, deren Handhabung jedoch eine sehr umfangrei- 
che Beschreibung benötigen würde, so daß wir sie hier 
nur der Vollständigkeit halber erwähnen. 


(2) Die Menus: 

Jedem Fenster kann ein Pulldown-Menu System zuge- 
ordnet werden. Es erscheint in der Screenleiste beim 
Drücken der rechten Maustaste. Das Arbeiten mit sol- 
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chen Menüs ist ebenfalls ein sehr komplexes Thema, 
das allerdings mit Grafik nichts zu tun hat, und des- 
halb ebenfalls hier nicht genauer erläutert wird. 


(3) Der IDCMP-Port: Dies ist eine Schnittstelle, über 
die Intuition Ihr Programm über das Auftreten ver- 
schiedener Ereignisse in einem Fenster informieren 
kann (siehe Abschnitt 5). 


(4) GZZ-Fenster: Ein Fenster hat gewöhnlicherweise 
einen Rahmen und einen Titelbalken. In einem "norma- 
len" Fenster ist die Koordinate (0,0), die linke obe- 
re Ecke des Rahmens (genauer des Titelbalkens), die 
als Bezugspunkt für alle Positionsangaben wie z.B. 
beim Zeichnen, dient. Beim GZZ-Fenster beziehen sich 
alle Koordinatenangaben auf die linke obere Ecke der 
innerhalb des Rahmens liegenden Fläche, so daß der 
Programmierer die Rahmenbreite nicht mehr zu berück- 
sichtigen braucht. 


(5) Borderless-Fenster: Ein solches Fenster hat, wie 
der Name schon sagt keinen Rahmen. Falls Sie keine 
Gadgets und keinen Titel angegeben haben, erscheint 
auch kein Titelbalken. 


(6) Backdrop-Fenster: Dieser Fenstertyp bleibt immer 
im Hintergrund, d.h. auch wenn bei einem anderen Fen- 
ster das Depth-Gadget angeklickt wird, kann dieses 
Fenster nicht nach Vorne geholt werden. 
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Das Öffnen eines Fensters spielt sich nach dem 
gleichen Prinzip wie das Offnen eines Screens ab. Es 
muß eine Struktur, die NMewWindow-Struktur, mit den 
Werten für das gewünschte Fenster intialisiert, und 
ihre Adresse an die Intuition Funktion OpenWindow 
übergeben werden. Als Ergebnis bekommt man, falls das 
Öffnen erfolgreich verlaufen ist, einen Zeiger auf 
die Window-Struktur, in der Intuition alle relevanten 
Information über das Fenster speichert. Ist ein Feh- 
ler aufgetreten, so gibt diese Prozedur NULL zurück. 
Die NewWindow-Struktur ist folgendermaßen definiert: 


Abb 2.3 Die NewWindow-Struktur 


struct NewWindow {4} 

SHORT LeftEdge, TopEdge; 
SHORT Width, Height; 
UBYTE DetailPen, BlockPen; 
ULONG IDCHPFlags; 

ULONG Flags;; 

struct Gadget *FirstGadget; 
struct Image *CheckMark; 
UBYTE *Title; 

struct Screen *Screen; 
struct BitMap *BitHap; 
SHORT HMinWidth, MinHeight; 
SHORT MaxWidth, MaxHeight; 
USHORT Type; 


Fi 
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Die ersten sechs Felder haben die gleiche Bedeutung 
wie bei der NewScreen-Struktur: x,y-Koordinate, Brei- 
te, Höhe, und die Farbe der Titelschrift, bzw. des 
Titelbalkens des Fensters. Die Koordinaten beziehen 
sich auf die linke obere Ecke des Screens. Die Summe 
aus der x-Koordinate und Breite bzw. y-Koordinate und 
Höhe darf dann selbstverständlich nicht größer sein 
als die Breite bzw. die Höhe des Screens. 


Die IDCMP-Flags dienen dazu, einen IDCMP-Port ein- 
zurichten und zu gestalten (siehe Abschnitt 5). NULL 
bedeutet hier gar keinen IDCMP-Port. Die im vorigen 
Abschnitt besprochenen besonderen Eigenschaften des 
neuen Fensters, können mittels des Flags-Feldes durch 
die folgenden Window-Flags eingestellt werden : 


Abb 2.4 Die Window-Flags 


Flag! Eigenschaft! 


! WINDOWSIZING I! Sizing-Gadget | 
! WINDOWDEPTH ! Depth-Gadget | 
! WINDOWCLOSE ! Close-Gadget ! 
! WINDOWDRAG ! Drag-Gadget ! 


! SMART REFRESH ! Smart-Refresh Modus ! 
! SIMPLE REFRESH ! Simple-Refresh Modus ! 
! SUPER _BITMAP ! Ein SuperBitMap-Fenster ! 
! GIMMEZEROZERO ! Ein GZZ-Fenster ! 
! BACKDROP I! Ein Backdrop-Fenster ! 
! BORDERLESS I! Ein Fenster ohne Rahmen ! 
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Ein weiteres nützliches Flag ist das ACTIVATE-Flag, 
das darüber entscheidet, ob ein Fenster beim Öffnen 
aktiv wird oder nicht. Die Texteingabe und Überwa- 
chung der Mausaktivitäten können nur im aktiven Fen- 
ster erfolgen. Um nun z.B. ein mit den Close-und Drag 
Gadgets und SmartRefresh ausgestattetes Fenster zu 
öffnen, müssen sie folgende Flags setzen: 


WINDOWDRAG ; WINDOWCLOSE ; SMART REFRESH 


In dem Feld Title müssen Sie die Adresse einer Zei- 
chenkette, die dann im Titelbalken des Fensters er- 
scheinen wird, übergeben. Die Adresse des Screens, 
auf dem das neue Fenster erscheinen soll, muß in 
Screen übergeben werden. Falls Sie hier NULL überge- 
ben, wird das Fenster auf dem Workbench-Screen geöff- 
net. Je nachdem, ob Sie sich für einen eigenen, oder 
den Workbench-Screen entscheiden, setzen Sie Type auf 
ee (eigener Screen) oder NULL (Workbench 
Screen). 


Die Variablen MinWidth, MinHeight, MaxWidth, und 
MaxHeight bestimmen die minimalen bzw. maximalen Di- 


mensionen des Fensters. Diese Felder sind nur für 
Fenster, die mit einem Drag-Gadget ausgestattet sind, 
wichtig. Sie bestimmen dann, inwieweit der Benutzer 
die Größe des Fensters verändern kann. Die restlichen 
Komponenten der MemwWindow-Struktur sind für uns im 
Moment nicht von Bedeutung und sollten mit Null ini- 
tialisiert werden. Sie können Ihre Bedeutung dem An- 
hang A entnehmen. 


Nach dieser Einführung kommt nun ein Beispiel, in 
dem ein einfaches Fenster ohne Gadgets und IDCMP-Port 
mit SmartRefresh auf dem Workbench-Screen geöffnet, 
und nach einer kurzen Pause wieder gechlossen wird. 
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Programm 2.2 Fenster. 

#include "exec/types.h" 

#include "intuition/intuition.h" 
struct IntuitionBase *IntuitionBase; 


main () 


struct NewWindow NewWindow; 
struct Window *Window; 
LONG JE 


/* Intution-Library Öffnen, falls Fehler, dann 


Programm beenden. 


IntuitionBase = (struct IntuitionBase *) 
OpenLibrary ("intuition. library",0); 
if (IntuitionBase == NULL) exit(FALSE); 


/* NewWindow-Struktur zum Öffnen des Fensters 
initialisieren 


NewWindow.LeftEdge = 1; /* x-Koordinate. 
NewWindow.TopEdge = 1; /* y-Koordinate. 


NewWindow.Width = 300; /* Breite des Fensters. 


NewWindow.Height = 150; - /* Höhe des Fensters. 
NewWindow.BlockPen = 1; : /* Vordergrundfarbe. 
NewWindow.DetailPen = 0; /* Hintergrundfarbe. 
* Name des Fensters. 
NewWindow. Title = "BeispielFenster"; 


/* Keine Gadgets; "Smart-Refresh". 


NewWindow.Flags = SMART REFRESH ; ACTIVATE; 
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NewWindow. IDCHPFlags = NULL; 
/* Kein Nachrichtenport (IDCMP). */ 


NewWindow. Type = WBENCHSCREEN; 
/* Fenstertyp: Workbenchfenster. */ 


NewWindow.FirstGadget = NULL; 
/* Keine Gadgets. */ 


NewWindow.CheckMark = NULL; 
/* Standard "Checkmark". */ 


NewWindow.Screen = NULL; 
/* Auf dem Workbench-Screen. */ 


NewWindow.BitMap = NULL; 
/* Keine eigene Bitmap. # 


NewWindow.MinWidth = 1; 
/* Minimale Breite = 1. */ 


NewWindow.MinHeight = 1; 
/* Minimale Höhe = 1. */ 


NewWindow.MaxWidth = 300; 
/* Maximale Breite unwichtig. Kf 


NewWindow.MaxHeight = 150; 
/* Maximale Höhe unwichtig. */ 


/* Das neue Fenster öffnen, falls Fehler, dann 
Programm beenden. */ 


Window = (struct Window *) 

OpenWindow(&NewWindow); if (Window==NULL) exit(FALSE); 
for (j = 0; j < 1000000; j++); /* Abwarten */ 
CloseWindow(Window); /* Fenster schließen */ 
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Ir 


Bild 2.2 - Die Ausgabe des Programms Fenster 


Zum Abschluß noch eine kurze Aufzählung der Intui- 
tion-Prozeduren zum Arbeiten mit Fenstern. 


ActivateWindow 
CloseWindow 
HoveWindow 
OpenWindow 
SetWindowTitles 
SizeWindow 
WindowL imits 
WindowToBack 
WindowToFront 
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Eine der Besonderheiten des Amiga ist die Tatsache, 
daß alle Eingaben, sowohl die, die über die Tastatur, 
als auch die, die durch die Maus erfolgen, immer nur 
fensterbezogen sind. So wird z.B. ein Text nur in dem 
Fenster eingegeben, in dem zuletzt die Maus geklickt 
wurde. Der IDCMP-Port ist die Schnittstelle, die 
dafür sorgt, daß Ihr Programm alles, was in einem 
Fenster passiert, überwachen kann. Durch Setzen der 
entsprechenden Flags können Sie Intuition dazu veran- 
lassen, Ihnen jedesmal eine Nachricht zu schicken, 
wenn der Benutzer in einem Fenster z.B. die Maus 
bewegt, ein Menü auswählt,oder eine Taste drückt. Das 
Setzen dieser Flags kann entweder direkt beim Öffnen 
des Fensters durch entsprechendes Initialisieren des 
IDCMPFlags-Feldes der NewWindow-Struktur erfolgen, 
oder später mit Hilfe der Intuition Prozedur_Modify- 
IDCMP. Falls Sie also immer dann, wenn die Maus be- 
wegt wird oder wenn das Close-Gadget geklickt wird, 
informiert werden wollen, müssen Sie diesem Feld den 
Wert: 

MOUSEMOVE ! CLOSEWINDOW 


zuweisen, oder ModifyIDCMP folgendermaßen aufrufen: 
ModifyIDCMP(Window, MOUSEMOVE ! CLOSEWINDOW); 


Window muß selbstverständlich ein Zeiger auf die 
Window-Struktur Ihres Fensters sein! 
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Hier die wichtigsten IDCMP-Flags und die zugehörigen 
Ereignisse: 


MOUSEBUTTONS 

Drücken/Loslassen einer Maustaste. Je nach dem ob das 
MBTRAP Window-F lag gesetzt ist, wird dabei die rechte 
Taste mit berücksichtigt oder nicht. 


MOUSEMOVE 
Veränderung der Mausposition. 


CLOSEWINDOW 
Ancklicken des Close-Gadgets. 


NEWSIZE 
Veränderung der Fenstergröße. 


ACTIVEWINDOW/INACTIVEWINDOW 

Falls Sie dieses Flag setzen, werden Sie eine Nach- 
richt erhalten, wenn das Fenster durch Klicken der 
Maus in seirem innerem aktiviert, bzw. durch Klicken 
in einem anderem Fenster inaktiviert wird. 


VANILLAKEY 
Die gedrückte Taste. 


DISKINSERTED/DISKRENOVED 
Sie bekommen eine Nachricht, falls eine Diskette 
eingelegt bzw. aus dem Laufwerk herausgenommen wurde. 


Nachdem Sie nun einen IDCMP-Port entsprechend Ihrer 
Bedürfnisse eingerichtet haben, können Sie diesen je- 
derzeit während des Programmablaufes abfragen. Norma- 
lerweise wird dabei zuerst die Exec-Prozedur WaitPort 
aufgerufen, die dafür sorgt, daß Ihr Programm solange 
angehalten wird, bis irgendeine Nachricht an das Fen- 
ster gekommen ist. Hiernach kann mit GetMsq ihre Ad- 
resse ermittelt werden. Beide Prozeduren brauchen als 
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Eingabe lediglich das VserPort-Feld der Window-Struk- 
tur. Bei dem Zeiger, den GetMsg zurück gibt, handelt 
es sich um die Adresse der IntuiMessage-Struktur, in 
der die Nachricht gespeichert ist. Diese ist wie 
folgt aufgebaut: 


Abb 2.5 Die IntuiMessage-Struktur 
struct Intuillessage { 


struct Message ExecHessage; 
ULONG Class; 

USHORT Code; 

USHORT Qualifier; 

APTR IAddress; 

SHORT HMouseX, MouseY; 

ULONG Seconds, Micros; 

struct Window *IDCMPWindow; 
struct IntuiMesage *SpecialLink; 


} 


Die Art der Nachricht kann dem Feld Class entnom- 
men werden. Eventuelle zusätzliche Informationen, wie 
z.B. der ASCII-Code des Zeichens, der der gedrückten 
Taste entspricht, stehen in der Code-Variable. In 
Mousex und Mousey finden Sie immer die aktuellen 
Koordinaten des Mauszeigers. Falls seit. der letzten 
Abfrage des Ports zwei Ereignisse aufgetreten sind, 
die entweder vom gleichen Typ sind oder beide das 
Code-Feld für sich beanspruchen, wird das zweite Er- 
eignis als eine weitere Nachricht eingetragen, die in 
eine Warteschleife eingefügt wird. Nachdem die Nach- 
richt empfangen und untersucht wurde, muß durch Auf- 
ruf der ReplyMsq-Routine dies dem System mitgeteilt 
werden. Nun wird die alte IntuiMessage-Struktur ver- 
gessen und Sie können auf die eben beschriebene Wei- 
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se die nächste Nachricht holen. Um Ihnen das ganze 
auf den ersten Blick vielleicht ein wenig verwirrende 
Verfahren zu veranschaulichen, haben wir hier wieder 
ein Beispielprogramm abgedruckt. 


Es öffnet ein Fenster mit einem IDCMP-Port und war- 
tet vor dem Schließen bis das Close-Gadget angeklickt 
wird. Die while-Schleife wäre an dieser Stelle ei- 
gentlich nicht notwendig, da dies das einzige Ereig- 
nıs ist, daß von Intution in diesem Fall registriert 
wird (es ist nur das CLOSEWINDOW-Flag gesetzt !), so 
daß das Programm allein durch MWaitPort angehalten 
wird. 


Programm 2.3 IDCMP 


#include "exec/types.h" 
#include "intuition/intuition.h" 


struct IntuitionBase *IntuitionBase; 


main () 


{ 


struct NewWindow NewWindow; 

struct Window *Window; 

struct IntuiMessage *IntuiMessage; 

LONG J: 

ULONG Type; 
/* Intution-Library öffnen, falls Fehler,dann 

Programm beenden. */ 

IntuitionBase =(struct IntuitionBase *) OpenLibrary 
("intuition. library",0); 

if (IntuitionBase == NULL) exit(FALSE); 
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/* NewWindow-Struktur zum Öffnen des Fensters 
initialisieren */ 
NewWindow.LeftEdge = 1; /* x-Koordinate. 
NewWindow.TopEdge = 1; /* y-Koordinate. */ 
NewWindow.Width = 300; /* Breite des Fensters.*/ 
NewWindow.Height = 150; /* Höhe des Fensters. */ 
NewWindow.BlockPen = 1; /* Vordergrundfarbe. */ 
NewWindow.DetailPen = 0;/* Hintergrundfarbe. */ 
/* Name des Fensters. */ 
NewWindow. Title = "BeispielFenster"; 
/* Alle Gadgets, "Smart-Refresh". */ 


NewWindow.Flags = SMART REFRESH } ACTIVATE / 
WINDOWCLOSE ! WINDOWDRAG }WINDOWDEPTH ! WINDOWSIZING; 
/* Close Gadget Message schicken. */ 


NewWindow.IDCMPFlags = CLOSEWINDOW; 
NewWindow. Type = WBENCHSCREEN; 
/* Fenstertyp: Workbench Fenster. */ 


NewWindow.FirstGadget = NULL; 
/* Keine Gadgets. */ 


NewWindow.CheckMark = NULL; 
/* Standard "Checkmark". */ 


NewWindow.Screen = NULL; 
/* Auf dem Workbench-Screen. */ 


NewWindow.BitMap = NULL; 
/* Keine eigene Bitmap. %f 


NewWindow.MinWidth = 1; 


/* Minimale Breite = 1. */ 
NewWindow.MinHeight = 1; 
/* Minimale Höhe =1. */ 
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NewWindow.MaxWidth = 300; 


/* Maximale Breite unwichtig. 4 


/* Das neue Fenster öffnen, falls Fehler, dann 


Programm beenden. */ 


Window = (struct Window *)OpenWindow(&NewWindow); 


if (Window == NULL) exit(FALSE); 


Type = 0; 


/* Auf Nachricht warten bis Close- 


Gadget angeclickt. */ 


while (Type < CLOSEWINDOW) 


/* Auf Nachricht warten */ 
Wa itPort(Window->UserPort); 


/* Art der Nachricht merken. */ 
IntuiMessage = GetMsg(Window->UserPort); 
Type = IntuiMessage->C lass; 


/* Fenster schließen */ 
CloseWindow(Window); 
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Wie Sie sehen, ist der Gebrauch der Fenster und 
Screens mit einigem Aufwand verbunden. Um uns in Zu- 
kunft diese Arbeit zu ersparen, wird nun ein Programm 
vorgestellt, in dem einige nützliche Prozeduren defi- 
niert werden. Wir werden dann später ohne weiteren 
Kommentar auf diese Routinen zugreifen. 


Das Programm, das wir Display.h genannt haben, be- 
inhaltet folgende Prozeduren: 


OpenIntui_() 


Diese Prozedur öffnet die Intution-Library. 


OpenGfx_() 
Diese Prozedur öffnet die Graphics-Library 


MakeScr (x,y,w,h,Name,d,flags, font ‚BMap) 


Offnet einen neuen Screen, wobei die Parameter den 
wichtigsten Feldern der NewScreen-Struktur entspre- 
chen. Die Variablen x,y,‚w,h bestimmen die Koordina- 
ten der linken oberen Ecke, die Breite und die Höhe. 
Die Tiefe wird in d angegeben. Flags entspricht dem 
ViewModes-Feld von NewScreen, dient also zur Auswahl 
der Auflösung und der Sondermodi. In font bzw. BMap 
können Sie schließlich einen eigenen Font, bzw. Bit- 
Map für diesen Screen angeben. Normalerweise sollten 
diese Parameter auf NULL gesetzt werden. 


MakeWindow X,Y,w,h,mw,mh ‚Name, flaqs , Idemp, screen 

öffnet ein Fenster wobei die überaebenen Parameter 
die wichtigsten Felder der NewWindow-Struktur bestim- 
men. Die Variablen x,y,w,h,ım,mh stehen in dieser 
Reihenfolge für die Koordinaten der linken oberen 
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Ecke, Breite, Höhe und die maximalen Abmessungen des 
Fensters. Name ist eine Zeichenkette, die den Titel 
des Fensters beinhaltet. In flags bzw. Idcmp können 
Sie die gewünschten Window bzw. IDCMP-Flags übergeben. 
Der letzte Parameter, screen, ist ein Zeiger auf den 
Screen, auf dem das Fenster geöffnet wird. NULL be- 
deutet hier, den Workbench-Screen 


WaitEvent (wind,code) 


Diese Prozedur wartet, bis an das Fenster, deren 
Adresse in wind übergeben wurde, eine IDCMP-Nach- 
richt kommt und gibt den Inhalt des Class-Feldes der 
IntuiNessage-Struktur (also die Art der Nachricht!) 
zurück. In code wird dabei der Inhalt des Code-Fel- 
des von IntuiMessage geschrieben. 


GetMouse(wind,x,y) 


ermittelt die aktuelle Position des Mauszeigers in 
dem durch wind bestimmten Fenster. 


#include "exec/types.h" 
#include "intuition/intuition.h" 


struct IntuitionBase *IntuitionßBase; 
struct GfxBase *GfxBase; 


/* Diese Prozedur öffnet die Intution-Library */ 
VOID OpenIntui () 


/* Intution-Library öffnen, falls Fehler dann 
Programm beenden. */ 
IntuitionBase = (struct IntuitionBase *) 
OpenL ibrary("intuition. Jibrary",O); 
if (IntuitionBase == NULL) exit(FALSE); 
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/* Diese Prozedur öffnet die Graphics-Library */ 
VOID OpenGfx () 


GfxBase = (struct GfxBase *) OpenLibrary("graphics. 
library",0): 
if (IntuitionBase == NULL) exit(FALSE); 


/* Diese Prozedur öffnet einen neuen Screen. */ 
MakeScr (x, Y, w, h, Name, d, flags, font, BHMap) 
APTR Name, BMap, font; 

SHORT x, y, w, h, d; 

ULONG Flags; 


struct NewScreen NewScreen; 


/* NewScreen-Struktur initialisieren. */ 
NewScreen.LeftEdge X; 


NewScreen.TopEdge = y; 
NewScreen.Width = w; 
NewScreen.Height = h; 
NewScreen.Depth = d; 
NewScreen.DetailPen = 0; 
NewScreen.BlockPen = 1; 
NewScreen.ViewMlodes = flags; 
NewScreen. Type = CUSTOMSCREEN; 
NewScreen.Font = font; | 
NewScreen.Title = Name; 
NewScreen. Gadgets = NULL; 
NewScreen.CustomBitMap = NULL; 


/* Den neuen Screen öffnen. */ 
return (OpenScreen(&NewScreen)); 
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/* Diese Prozedur öffnet ein neues Fenster */ 
MakeWindow (x, y, w, h, mw, mh, Name, flags, Idcmp, 


screen) 

struct Screen *screen; 

APTR Name; 

SHORT x, Yy, w, h, mw, mh; 

. flags, Idcmp; 
struct NewWindow NewWindow; 
ULONG SType; 
/* Mokbenchfenster oder nicht ? */ 
SType = CUSTOMSCREEN; 
if(screen == NULL) 
SType = WBENCHSCREEN; 
OpenIntui(); /* Intuition Library öffnen */ 
/* NewWindow-Struktur initialisieren */ 
NewWindow.LeftEdge =Xx; 
NewWindow. TopEdge = y; 
NewWindow.Width = w; 
NewWindow.Height = h; 
NewWindow.BlockPen = 1; 
NewWindow.DetailPen = 0; 
NewWindow. Title = Name; 
NewWindow.Flags = flags; 
NewWindow. IDCHPF lags = Idcmp; 
NewWindow. Type = SType; 
NewWindow.FirstGadget = NULL; 
NewWindow. CheckMark = NULL; 
NewWindow.Screen = Screen; 
NewWindow. BitMap = NULL; 
NewWindow.MinWidth = 1; 
NewWindow.MinHeight = 1; 
NewWindow.MaxWidth = mw; 
NewWindow.MaxHeight = mh; 


return (OpenWindow(&NewW indow) 3 
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/* Diese Prozedur wartet auf eine Intution Nachricht, 
holt die Art des */ 
/* Ereignisses ("Class") und gegebenfalls die 
gelesene Größe ("Code").*/ 
WaitEvent (wind, code) 


struct Window *wind; 
USHORT *code; 


struct IntuiMessage *Intuillessage; 


/* Auf Nachricht warten */ 
Wait(1 << wind->UserPort->mp SigBit); 


/* Nachricht holen. */ 
IntuiMessage = GetMsg(wind->UserPort); 


/* Inhalt merken und Art der Nachricht 
zurückgeben. */ 

*code = IntuiMessage->Code; 

return (IntuiMessage->C lass); 


/* Diese Prozedur holt die aktuellen Koordinaten 
des Mauszeigers im Fenster. */ 
GetMouse(wind,x,y) 


struct Window *wind; 
SHORT *x, *y; 


= wind->MouseX; 
*y = wind->HouseY; 


/* Ist dies ein GZZ-Fenster ?_ */ 


{ *x = wind->GZZMouseX; 
*y = wind->GZZMouseY; 
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Als Beispiel für die Anwendung der soeben definier- 
ten Routinen folgt ein Programm, das ein Fenster auf 
einem neuen Screen Öffnet, auf Eingabe von "E" wartet 
und es wieder schließt. 


Programm 2.5 DisplayDemo 
#include "Display.h" 
main () 


struct Screen *Screen; 
struct Window *Window; 
ULONG Class; 

short Code; 


OpenIntui (); 


/* Einen low-res Screen öffnen. */ 

Screen = MakeScr(0,0,320,200,"Lowres",2,NULL, 
NULL,NULL); 

if (Screen == NULL) exit(FALSE); 


/* Fenster auf dem neuen Screen öffnen. */ 
Window = MakeWindow (0,0,200,200,200,200, "Hallo", 

SMART REFRESH, VANILLAKEY,Screen); 
if(Window == NULL) u 


AR Warten bis "E" gedrückt wird */ 
do 
/* Auf Nachricht warten */ 
Class = WaitEvent(Window,&Code); 
} while (Code != 69); 


/* Fenster und Screen schließen */ 


CloseWindow(Window); 
CloseScreen(Screen); 
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Kapitel 3 
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Obwohl sich die Mehrheit der Grafikprozeduren logi- 
scherweise in der Graphics-Library befindet, bietet 
auch Intuition mit DrawImage und DrawBorder zwei sehr 
nützliche Routinen. Sie werden vom System zur Dar- 
stellung der Fenstergrenzen und der Gadgets benötigt 
und ermöglichen das Zeichnen von beliebigen Bildern 
und Umrandungen. Sie werden in diesem Kapitel im Zu- 
sammenhang mit den Images auch mit Routinen zur Allo- 
zierung und Deallozierung von Speicherbereichen ver- 
traut gemacht werden, die wir später noch sehr oft 
benötigen werden. Besonderes wichtig ist dabei, daß 
Sie sich von Anfang an angewöhnen, nicht mehr benö- 
tigten Speicher auch wieder freizugeben, auch wenn es 
sich um scheinbar kleine Mengen handelt. 


Zur Umrandung diverser Objekte bietet Intuition die 
DrawBorder-Prozedur. Diese benötigt eine mit entspre- 
chenden Parametern initialisierte Border-Struktur, in 
der unter anderem die Koordinaten der Eckpunkte ent- 
halten sind. Nachdem Sie eine Umrandung(Border) durch 
Erstellen eines solchen Datensatzes erzeugt haben, 
können Sie diese mehrmals an verschiedenen Stellen 
des Bildschirms ausgeben. Auf diese Weise lassen sich 
mit einfachen Mitteln relativ komplexe Gebilde auf 
dem Bildschirm darstellen. Obwohl wir hier von Umran- 
dungen sprechen, können nicht nur geschlossene Li- 
nienzüge gezeichnet werden. Durch die Möglichkeit, 
mehrere solcher Borders miteinander zu verketten, 
können auch nicht zusammehängende Figuren definiert 
und dargestellt werden. Der erste Schritt in der 
Definition einer Umrandung ist die Festlegung der 
Eckkoordinaten. Diese können als Zahlen in einem 
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SHORT-Arrray gespeichert werden. Ein Dreieck, dessen 
Spitze bei (10,0) liegt, kann also wie folgt defi- 
niert werden: 


SHORT Dreieck [] = {10,0, 
0,10, 
10,0}; 


Als nächstes müssen Sie eine Border-Struktur fol- 
gender Form erzeugen: 


Abb 3.1 Die Border-Struktur. 
struct Border { 


SHORT LeftEdge, TopEdge; 
SHORT FrontPen, BackPen; 
SHORT Count; 

SHORT *XY; 

struct Border *NextBorder; 


} 


In LeftEdge und TopEdge müssen Sie den sogenannten 
Offset eintragen, das heißt die x- und y-Entfernung 
beim Zeichnen mit Drawßorder angegeben wurde. Haben 
Sie also beim Zeichnen als Koordinaten z.B. (100,100) 
und als Offset (10,10) angegeben, dann wird der erste 
Punkt des in Abbildung 3.1 definierten Dreiecks bei 


100 + 10 + 10 
100 + 10 


X 
y 


also (120,110) gezeichnet. 
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FrontPen bestimmt die Farbe, die zum Zeichnen be- 
nutzt wird, falls DrawMode den Wert JAMI hat. (BackPen 
hat in der aktuellen Intuition Version keine Bedeu- 
tung). Im Falle des anderen zulässigen Dramllode-Wer- 
tes: XOR, wird beim Zeichnen die Farbe des Hinter- 
grundes invertiert. Für die Form Umrandung sind die 
Variablen XY und Count verantwortlich. In der ersten 
geben Sie die Adresse des Feldes an, in dem die Koor- 
dinaten der Eckpunkte enthalten sind, während die 
zweite die Anzahl der Ecken bestimmt, die tatsächlich 
gezeichnet werden. Um von unserem Dreieck nur die 
zwei ersten Seiten zu zeichnen, müßte man Count 
gleich 3 setzen (Anfangspunkt, erste Ecke, zweite 
Ecke). Das letzte Feld der Border-Struktur, NextBor- 
der, ist dazu da, mehrere solcher Figuren zu verket- 
ten, indem dort die Adresse einer weiteren solchen 
Struktur eingetragen wird. Eine solche Kette kann 
dann mit einem einzigen DrawBorder-Befehl gezeichnet 
werden. Der Aufruf dieser Prozedur sieht immer aus, 
wie folgt: 


DrawBorder (RPort,Border,x,y) 


In Border wird dann die Adresse der initialisier- 
ten Border-Struktur, in x,y die Position, an der die- 
se auszugeben ist, übergeben. RPort bezeichnet die 
Adresse eines Rastports. Was dieser nun genauer ist, 
erklären wir später. Um die Umrandung in einem Screen 
darzustellen, geben Sie hier die Adresse des Rast- 
Port-Feldes der Screen-Struktur an. 


In dem folgenden abgedruckten Programm Border haben 
wir versucht, Ihnen vor allem die nicht ganz so tri- 
viale Anwendug der Offsets und der Verkettung von Um- 
randungen zu verdeutlichen. Dazu werden zwei zunächst 
nicht verkettete Borders definiert: 
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(1) Rect - Quadratisch 
(2) Tria - Dreieckig 


Sie werden dann in einer for-Schleife untereinander 
mit zwei DrawBorder Aufrufen gezeichnet. Hiernach 
wird die Adresse von Tria in das NextBorder Feld von 
Rect eingetragen, und Rect wird wieder in einer for- 
Schleife gezeichnet. Da die beiden aber nun verkettet 
sind, wird ja das Dreieck mitgezeichnet und die re- 
sultierende Figur sieht in etwa so aus: 


Zum Abschluß wird dann noch der y-Offset (TopEdge) 
von Tria auf -25 gesetzt, so daß das Dreieck nun Ü- 
ber dem Quadrat, also wie folgt ausgegeben wird: 
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Programm 3.1 Border 


#include "Display.h" 
#include "intuition/intuition.h" 
#include "exec/types.h" 


struct Window *Window; 


SHORT Cornersi [] = {0, 0, /* Ein Quadrat 
50, 25, 
0, 25, 
0, 0}; 


SHORT Corners2 [] = {25, 0, /* Ein Dreieck 
50, 25, 
0, 
25, 0}; 


struct Border Rect = [{0, 0, 
1, 0, 
JAMl, 


&Cornersi, 
NULL}; 


struct Border Tria = {0, 0, 


JAHl, 
4, 
&Corners2, 

NULL}; 
main () 


SHORT i; 


USHORT code; 
ULONG Class; 
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/* Ein Fenster auf dem Workbench Screen öffnen */ 
Window = (struct Window *)MakeWindow(0,0,640,250, 

640,250, "Border-Beispiel", 

WINDOWCLOSE / SMART REFRESH, CLOSEWINDOW, NULL); 


if(Window == NULL) /* Fehler beim Öffnen ?_ */ 
exit(FALSE); 


for(i = 5; i <= 600; i = i + 55) 
/* Beide Borders getrennt zeichnen. */ 


DrawßBorder (Window->RPort,&Rect,i,20): 
Das Quadrat Zeichnen. */ 

DrawBorder (Window->RPort,&Tria,i,70); 
/* Das Dreieck Zeichnen. */ 


/* Zweite Umrandung an die erste "anhängen". */ 
Rect.NextBorder = &Tria; 


/* Und beide 10 mal gleichzeitig zeichnen. */ 
for(i = 5; i <= 600; 1 =i+55 


DrawBorder (Window->RPort,&Rect,i,130); 


/* Offset des Dreiecks verändern */ 

Tria.TopEdge = -25; 

/* Und beide Borders wieder 10 mal gleichzeitig 
zeichnen. */ 

for(i = 5; i <= 600; i = i + 55) 


DrawBorder (Window->RPort,&Rect,i,210); 


Class = WaitEvent(Window,&code); 
* Auf Close-Gadget warten. */ 
CloseWindow(Window); /* Fenster schließen. */ 
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Bevor wir uns mit den Images (Bilder) befassen kön- 
nen, ist ein kleiner Exkurs in die Speicherverwaltung 
fällig. Wir müssen nämlich, um die Bilddaten für die 
Grafikchips zugängig zu machen, sicherstellen, daß 
sie sich im CHIP-Ram befinden. Tut man es nicht, so 
stürzt das Programm auf so manchem Amiga prompt ab. 


Als erstes muß der für die Daten notwendige Spei- 
cherplatz mit Hilfe der Exec-Prozedur AllocHem reser- 
viert (alloziert) werden. Dazu müssen die Größe des 
benötigten Speichers in Bytes und die Anforderungen, 
die an diesen Speicher gestellt werden, übergeben 
werden. Die letzteren werden durch ein Set folgender 
Flags bestimmt: 
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MEMF CHIP: Es wird CHIP-Ram benötigt. 


MEMF CLEAR: Der Speicher soll beim Allozieren mit 
Nullen initialisiert werden. 


MEMF LARGEST: Es wird ein zusammenhängender Speicher- 
block benötigt. 


Als Ergebnis liefert dann A7JocMem einen Zeiger auf 
den reservierten Speicher. Um z.B. Speicher für Bild- 
arten, die sich in der Variable Data befinden zu al- 
lozieren müssen Sie so vorgehen: 


DataPtr=AllocMem(sizeof(Data),MEMF_CHIP!MEMF CLEAR); 


Dabei wird die benötigte Speichermenge mit Hilfe 
der sizeof-Funktion ermittelt. 


Exec stellt auch eine Routine zum Kopieren von 
Speicherinhalten zur Verfügung. Sie heißt CopyMem und 
benötigt folgende Eingaben: 
source: Die Adresse von der kopiert wird. 
dest: Die Adresse zu der kopiert werden soll. 
size: Die Größe des zu kopierenden Bereiches in 

Bytes. 


Die Daten vom vorigen Beispiel können also so ko- 
piert werden: 


CopyMem(&Data,DataPtr,sizeof(Data)); 


Es werden auf diese Weise die Adresse und Größe des 
Speichers als Eingabe gebraucht. Also z.B.: 


FreeMem(DataPtr,sizeof(Data)); 


Dabei ist Vorsicht geboten, denn ein Versuch, einen 
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nicht allozierten Speicher zu deallozieren, endet oft 
mit Absturz. 


Die Images (engl. Bilder) gestatten es Ihnen, das 
Aussehen von Objekten Pixel für Pixel zu bestimmen. 
Analog wie bei den Borders können sie dann mehrmals, 
auch verkettet, gezeichnet werden. Die Bilddaten wer- 
den in einer Folge von USHORT-Zahlen (Prozessorwör- 
ter) gespeichert, deren Bitzusammensetzung der Pixel- 
zusammensetzung des Bildes entspricht. Die Farbe wird 
hierbei nicht mehr einheitlich für das ganze Objekt 
angegeben, sondern wie bei der Videoanzeige durch 
überlappende Bitplanes bestimmt. Die Anzahl der Bit- 
planes eines Images kann zwischen 1 und der Tiefe des 
Screens, auf dem dieser ausgegeben wird, liegen (bzw. 
zu dem das Fenster, in dem dieser ausgegeben wird, 
gehört). Eintachheitshalber wollen wir uns zuerst mit 
einem Image der Tiefe 1, das die Form eines Kreuzes 
hat, beschäftigen. Zuerst müssen wir uns das Bild so 
wie es spät dargestellt wird, aufzeichnen, also mit 
Hilfe von gesetzten oder nicht gesetzten Punkten. 


Abb 3.2 Ein einfaches Image 


0000111111110000 
0000111111110000 
1111111111111111 
1111111111111111 
0000111111110000 
0000111111110000 
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Durch die Darstellung in Form von Nullen und Einsen 
haben wir es geschafft, das Bild in eine Folge von 16 
Bit Dualzahlen umzuwandeln. Diese können nun in Dezi- 
mal bzw. Hexadezimalsystem umgerechnet werden und 
entsprechen von der Länge jeweils einem Prozessorwort 
(WORD). Nach dieser Umwandlung könnte man nun unser 
Kreuz wie folgt als hexadezimale Bilddaten Speichern: 


USHORT Bild [] = {0x0ffo, 
Ox0OffD, 
Oxffff, 
Oxfffrf, 
0x0ff0, 
0x0ff0}; 


Wie Sie sehen, entspricht bei der Umrechnung eine 
Hexadezimalziffer einer vier Bit langen Dualzahl. 


In diesem Beispiel wurde das Bild so gewählt, daß 
es die Breite von 16 Punkten hat. Falls die Breite 
geringer ist, wird trotzdem jede Zeile durch eine 
16-Bit Zahl bestimmt. Die nicht benutzten Bits müssen 
dann halt Null sein. Für Bilder, die breiter als die 
16 Punkte sind, werden zur Definition jeder Zeile 
einfach mehr 16-Bit Zahlen genommen. Es ist jetzt a- 
ber 18 Punkte breit: 


0000011111111000 0000000000000000 
0000011111111000 0000000000000000 
1111111111111111 1100000000000000 
1111111111111111 1100000000000000 
0000011111111000 0000000000000000 
0000011111111000 0000000000000000 
erste Zahl zweite Zahl 
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Die zugehörigen Daten würden dann so aussehen: 


USHORT Bild [] = {0x07f8,0x0000 
0x07f8,0x0000 
Oxffff,0xc000 
Oxffff,0xc000 
0x07f8,0x0000 
0x07f8,0x0000}; 


Für Bilder, die aus mehreren Bitplanes bestehen, 
werden die einzelnen Bitplanes in der soeben be- 
schriebenen Weise definiert und dann hintereinander 
in den Daten gespeichert. Ein zweifarbiger Streifen, 
der folgendermaßen aussieht: 


Bitebene 1 
000000000000000 
111111111111111 


Bitebene 2 
111111111111111 
000000000000000 


Wird durch folgende Daten definiert: 


USHORT Bild [] = {0x0000, /* Bitplane 1 */ 
Oxffff, 
Ooxffff, /* Bitplane 2 */ 
0x0000} 


Es ist natürlich auch erlaubt, daß Teile des Bildes 
in beiden Bitebenen gleichzeitig liegen. 


Der nächste Schritt nach dem Erstellen der Bildaten 


ist das Initialisieren der Image-Struktur. Diese ist 
wie folgt definiert: 
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Abb 3.3 Die Image Struktur. 
struct Image { 


SHORT LeftEdge, TopEdge; 
SHORT Width, Height, Depth; 
SHORT *ImageData; 

UBYTE PlanePick, PlaneOnOff; 
struct Image *NextImage; 


} 


LeftEdge und TopEdge sind hier wie bei der Border- 
Struktur die x- und y-Offsets. Die Breite und Höhe 
des Bildes in Pixels wird in Width und Height überge- 
ben. Depth bestimmt die Tiefe, also die Anzahl der 
Bitebenen. In ImageData müssen Sie die Adresse der 
Bilddaten hineinschreiben. Diese müssen im CHIP-Ram 
liegen! Die nächsten beiden Felder, PlanePick und 
Plane0onoff, sind für die Farbwahl zuständig. Das er- 
ste besagt, welche Bitebenen des Bildschirms für die 
Darstellung des Images verwendet werden, das zweite, 
welche Farbe die Punkte bekommen, die in den Bilda- 
ten nicht gesetzt sind. Um das Kreuz von Abb.3.2 in 
Farbe 1, seinen Hintergrund in Farbe 3 zu zeichnen, 
müssen Sie also für PlanePick 1, für PlaneOnOff 3 an- 
geben. Mit Hilfe von PlaneOnOff können Sie auch, ohne 
irgendwelche Bildaten ein gefülltes Rechteck einer 
beliebigen Farbe erzeugen. Dazu setzen Sie ImageData 
auf Null, Width und Height auf die gewünschte Größe 
des Rechtecks und tragen seine Farbe in PlaneOnOff 
ein. Da keine Bildaten existieren, besteht für Intui- 
tion das gesamte Bild aus Nullen, und wird daher in 
der gewünschten Farbe dargestellt. 
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Um das durch die Image-Struktur beschriebene Bild 
darzustellen, müssen Sie die Drawlmage-Prozedur so 
aufrufen: 


DrawImage(RPort, ImagePtr,x,y); 


Wie bei der DrawBorder-Routine ist ARPort hier die 
Adresse eines Rastports. ImagePtr ist der Zeiger auf 
die Image-Struktur, x,y die Koordinaten, an denen das 
Bild erscheinen soll. 


In dem nun folgendem Beispielprogramm haben wir uns 
bemüht, Ihnen vor allem die Bedeutung von PlanePick 
und Plane0OnOff klarzumachen. Am Anfang wird ein Bild 
eines Computers, mit der Tiefe 1 definiert. PlanePick 
wird auf 1, PJlaneOnOff auf 0 gesetzt und das Bild 
wird gezeichnet. Es erscheint in der Vordergrundfar- 
be. Hiernach wird PlanePick eine 2 zugewiesen und das 
Bild wird nochmal ausgegeben. Es erscheint diesmal in 
der Farbe Nummer 2. Als letztes wird dann noch Plane- 
OnOff auf 1 gesetzt. Die Farbe des Computers ändert 
sich hierbei zwar nicht, sein Hintergrund nimmt aber 
die Farbe 1 an. Jedesmal, wenn Sie die linke Mausta- 
ste drücken, gibt das Programm ein neues Bild aus. Um 
es abzubrechen, klicken Sie das Close-Gadget an. 


Beachten Sie auch, daß die Bilddaten vor dem Zeich- 
nen in einen allozierten CHIP-Ram Breich kopiert wer- 
den. 
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Programm 3.2 Image. 


#include 
#inc lude 
#inc lude 
#inc lude 


Zeichenroutinen der Intuition 


"Display.h" 
"intuition/intuition.h" 
"exec/types.h" 

"exec/memory.h" 


struct Window *Window; 
struct Screen *Screen; 


/* Bilddaten */ 
USHORT Data [] = { 


struct Image Bild 


main () 


APTR IData; 
USHORT code; 
SHORT x, y; 
ULONG Class; 


Ox3ffc, /* 
0x300c, /* 
0x300c, /* 
0x300c, /* 
0x300c, /* 
0x300c, /* 
Ox3ffc, /* 
0x0offo, /* 
Oxffff, /* 
Oxfffl, /* 
Oxffff, /* 
0x4002};/* 


= {0, 0, 
16,12, 


1, 
0x1,0x0, 
NULL}; 


001111111111111100 
001100000000001100 
001100000000001100 
001100000000001100 
001100000000001100 
001100000000001100 
001111111111111100 
000011111111110000 
Z211111111111111111 
111111111111110001 
211111111111111111 
010000000000000010 
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OpenIntui(); 


/* Einen low-res Screen öffnen. */ 

Screen = (struct Screen *)MakeScr(0,0,320,250, 
"Low-res",2,NULL,NULL,NULL); 

if (Screen == NULL) 

exit(FALSE); 


/* Ein GZZ-Fenster auf dem neuen Screen öffnen */ 
Window = (struct Window *)MakeWindow(0,0,320,250, 
300,250, "Image-Beispiel", 
WINDOWCLOSE ! GIMMEZEROZERO } ACTIVATE, 
MOUSEBUTTONS ! CLOSEWINDOW,Screen); 


if(Window == NULL) /* Fehler beim Öffnen ? */ 
exit(FALSE); 


/* CHIP-Memory für Bildaten allozieren */ 
IData = AllocHem(sizeof(Data),MEMF CHIP ! MEMF 

u PUBLIC); 
if (IData == NULL) /* Fehler beim Allozieren */ 
exit(FALSE); 


/* und Daten dorthin kopieren. */ 
CopyMem(&Data[0],IData,sizeof(Data)); 


/* Zeiger in der Image-Struktur auf Bildaten setzen 
Bild.ImageData = IData; 


/* Image Zeichnen */ 
DrawImage (Window->RPort,&Bild,120,120); 
Bild.PlanePick = 0x02; 


/* und Image zeichnen. */ 
DrawImage(Window->RPort,&Bi1d,140,120); 


/* Andere Bitplane für "Nullpunkte" wählen */ 
Bild.Plane0on0Off = 0x01; 
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/* und Image zeichnen. */ 
DrawImage (Window->RPort,&Bi1d,160,120); 


/* Alte Bitplane für "Nullpunkte" wählen. */ 
Bild.Plane0OnOff = 0x00; 


while (WaitEvent(Window,&code) != CLOSEWINDOW) 


GetMouse(Window,&x,&y); 
DrawImage (Window->RPort,&Bild,x,y); 


/* Datenspeicher wieder freigeben und alles 
schließen. */ 
FreeMem(IData,sizeof(Data)); 
Class = WaitEvent(Window,code); 
CloseWindow(Window); 
CloseScreen(Screen); 
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ID] Image-Beiıspiel 


Bild 3.2 - Eine Beispielausgabe des Programms Image 
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Kapitel 4 
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Nachdem wir uns in den ersten drei Kapiteln mit In- 
tuition befaßt haben, kommen wir nun endlich dazu, 
die eigentlichen Grafikroutinen zu betrachten. Wir 
wollen hier zuerst am Beispiel einiger einfacher Zei- 
chenprozeduren zeigen, wie die Nummer der Zeichenfar- 
be, ihre RGB-Zusammensetzung, der Zeichenmodus und 
das für die Linie verwendete Muster eingestellt wer- 
den können. Dabei werden Sie die beiden grundlegenden 
Strukturen der Graphics-Library: RastPort und View 
Port sowie ihre Bedeutung kennenlernen. Vor allem der 
Rastport wird Ihnen bei der Grafikprogrammierung noch 
sehr oft begegnen. Beachten Sie, daß Sie die Files 
grahics/graphics.h und eventuell graphics/gfxmacros.h 
mittels inc/ude in Ihr Programm einbinden müssen, um 
auf die hier verwendeten Prozeduren und Strukturen 
zugreifen zu können. 


Die Screens und Fenster sind zwar vom Standpunkt 
des Benutzers aus die elementaren Anzeigenelemente, 
vom System aus gesehen stehen diese aber auf einer 
ziemlich hohen Stufe, werden also unter Verwendung 
anderer grafischer Routinen und "Bauteile" von Intui- 
tion aufgebaut. 


Damit man die Zeichenroutinen sowohl in einem Fen- 
ster als auch in einem Screen oder einem selbster- 
zeugten Display verwenden kann, wird diesen nicht ein 
Zeiger auf ein Fenster, sondern die Adresse einer 
allgemeineren Struktur, die Bestandteil jeder Anzeige 
ist, übergeben. 
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Es handelt sich dabei um die RastPort-Struktur. 
Diese bestimmt sozusagen alle Eigenschaften des "Zei- 
chenstiftes", also z.B. die Vorder- und Hintergrund- 
farbe, den Zeichenmodus, die Schriftart etc., die in 
einer Anzeige verwendet wird. Die Adresse des zu ei- 
nem Fenster oder Screen gehörenden Rastports, können 
Sie wie in Kapitel 3 beschrieben, der Screen- bzw. 
Window-Struktur entnehmen. 


Da RastPort sehr viele Felder enthält, die nur für 
das System von Bedeutung sind, verzichten wir hier 
auf die vollständige Auflistung dieser Struktur und 
gehen nur auf die wichtigsten Felder ein. 


*BitMap: Zeiger auf die Bitmap, (also den "Bild- 
speicher") die Anzeige, zu der dieser 
Rastport gehört. 


*AreaPtrn: Das Muster, das zum Füllen von Flächen 
verwendet wird. 


FgPen,BqPen: Die Vorder- und Hintergrundfarben, die 
zum Zeichnen benutzt werden. 


A0lPen: Bestimmt die Umrandungsfarbe für gefüll- 
te Flächen. 

DrawMode: Der Zeichenmodus. 

LinePtrn: Ein Muster für die Linien (z.B.gestri- 

.  chelt). 

CR_ cp x,cp y: Die momentanen Koordinaten des Grafik- 
cursorSs. 

*CR Font: Der in diesem Rastport verwendete 
Schriftfont. 


TxWidth ,TxHeight ‚TxSpacing: Diese Felder geben die 
Breite, Höhe und den Abstand zwischen 


65 


Kapitel 4 Farbeinstellung und Graphik 


den Zeichen des aktuellen Fonts an. Der 
Zeichenabstand kann durch verändern des 
TxSpacing-Wertes verändert werden, wäh- 
rend die anderen Werte nur gelesen werder 
können. 


Der obigen Auflistung können Sie entnehmen, wie die 
zum Zeichnen verwendete Farbe gespeichert wird. Um 
diese zu verändern, können Sie auf die SetAPen-Proze- 
dur zurückgreifen. Ist Rast ein Zeiger auf einen Rast 
Port, so kann die dort gültige Vordergrundfarbe so 
auf 2 gesetzt werden: 


SetAPen(Rast,2); 


Analog kann die Hintergrundfarbe mit 


SetBPen(Rast,Farbe); 


modifiziert werden, wobei Farbe natürlich ein gül- 
tiger Farbwert sein muß. Beachten Sie, daß die Verän- 
derung der Hintergrundfarbe nicht die Veränderung 
des Hirtergrundes auf dem Bildschirm zur Folge hat. 
Es wird nur festgelegt, daß ab sofort, überall da, wo 
irgend etwas mit der Hintergrundfarbe gezeichnet oder 
gefüllt werden soll, der neue Farbwert verwendet 
wird. Wann dies der Fall ist, wird weitgehend durch 
den Zeichenmodus bestimmt. 


Dabei gibt es vier Modi: 
(1) JAMl: Dies ist der Standardmodus. Es wird zum 


Zeichnen nur die Vordergrundfarbe ge- 
braucht. 
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(2) JAM2: Dieser Modus ist vor allem für die Linien- 
und Füllmuster wichtig, auf die wir noch 
zu sprechen kommen. Es werden die gesetz- 
ten Punkte des Musters mit der Vorder-, 
die nicht gesetzten mit der Hintergrund- 
farbe gezeichnet. 


(3) Complement: In Diesem Modus wird jeder Punkt in 
der Farbe gezeichnet, die dem binären Kom- 
plement seiner bisherigen Farbnummer ent- 
spricht. Hatte ein Punkt also in einem 
Screen der Tiefe 2 bisher die Farbe Nummer 
2 (binär 10), dann wird er nun mit der 
Farbe 1 (binär 01) gezeichnet. In einem 
Screen der Tiefe 5 würde er aber in der 
Farbe 13 (binär 1101 als das Komplement 
von 0010 = 2) dargestellt werden. 


(4) Inversevid: Ist vorwiegend bei der Textdarstel- 
lung von Bedeutung. In Verbindung mit JAMI 
bewirkt diser Modus, daß der Hintergrund 
des Zeichens in der Vordergrundfarbe dar- 
gestellt wird, während das Zeichen selbst 
durchsichtig ist. Der Unterschied bei Ver- 
wendung zusammen mit JAM2 liegt darin, daß 
dann das Zeichen in der Hintergrundfarbe 
erscheint. 


Der Zeichenmodus wird über Flags, die entsprechend 
JAMlI, JAM2, COMPLEMENT, und INVERSEVID heißen, mit 
Hilfe der SetDrMd-Prozedur z.B. wie folgt: 

SetDrMd(Rast,JAM2); 


eingestellt. Direkte Zugriffe auf die Datenstrukturen 
sollten so weit wie möglich vermieden werden, um das 
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Programm auch zu eventuellen späteren Systemversio- 
nen, bei denen diese vieleicht modifiziert werden, 
kompatibel zu halten. 


Punkte können an beliebiger Bildschirmposition mit 
der Prozedur_WritePixel mit der aktuellen Farbe und 
den aktuellen Zeichenmodus gezeichnet werden. 


Als Parameter müssen Sie nur den Zeiger auf den 
Rastport und die Koordinaten übergeben. Ein Aufruf 
kann also so aussehen: 


WritePixel(Rast,10,10); 


Oft ist es wichtig zu wissen, welche Farbe ein be- 
stimmter Punkt.hat. Für diese Situationen gibt es in 
der Graphics-Library die Routine ReadPixel, die sozu- 
sagen die Umkehrung von KritePixel ist, also beim 
Aufruf die Farbe des Punktes an der angegebenen Posi- 
tion als Funktionsergebnis vom Typ int liefert. 


Linien können mit Hilfe der Grafikprozeduren nur ab 
der aktuellen Position des Grafikcursors gezeichnet 
werden. Diese ist, wie dem vorangegangenen Abschnitt 
zu entnehmen ist, in der RastPort - Struktur gespei- 
chert. Um den Grafikcursor neu zu positionieren mü- 
ssen Sie die Prozedur Move wie folgt aufrufen: 


Move(Rast,x,y); 
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Dabei ist Rast ein Zeiger auf einen Rasport und x 
und y die gewünschten Koordinaten. Eine Linie von der 
auf diese Weise bestimmten Position zu irgendeiner 
anderen Stelle auf dem Bilschirm kann dann mit der 
Draw-Prozedur dargestellt werden. Diese braucht als 
Eingabe wieder die Rastportadresse und die Koordina- 
ten des Zielpunktes. Um also eine Linie von (10,10) 
nach(100,100) zu zeichnen, müssen Sie so vorgehen: 


Move(Rast,10,10); 
Draw(Rast,100,100); 


Für viele Anwendungen ist die Möglichkeit, Linien 
mit verschiedenen Mustern zu zeichnen, also z.B.ge- 
strichelt oder punktiert, sehr interessant. Der Be- 
fehl $SetDrPt erlaubt Ihnen, ein 16 Punkte langes Mus- 
ter einem Rastport zuzuordnen. Dieses wird dann bis 
auf weiteres für alle in diesem Rastport gezeichneten 
Linien verwendet. Das Muster wird in einem SHORT-Wert 
gespeichert, dessen Bits den ein oder ausgeschalteten 
Punkten entsprechen. Die Linie wird dann als Aneinan- 
derreihung solcher 16 Punkte langen Abschnitte ge- 
zeichnet. Einer gestrichelten Linie, die aus diesen 
16-Punkte Abschnitten besteht: 


1111111100000000 
(Einsen stehen für gesetzte Punkte) entspricht dem 
hexadezimalen Wert ff00. Der dazugehörende Aufruf von 
SetDrPt sieht dann so aus: 
SetDrPt (Rast, Oxff00); 


Um wieder noramle Linien zeichnen zu können, rufen 
Sie SetDrPt mit -1 als Musterwert auf. 
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In dem nun folgenden Programm können Sie sehen, wie 
Linien mit verschiedenen Farben, Mustern und Zeichen- 
modi erzeugt werden können. In der ersten for-Schlei- 
fe wird jedesmal, bevor eine Linie gezeichnet wird, 
eine neue Vordergrundfarbe gewählt. In der zweiten 
wird bei jedem Durchlauf ein neues Linienmuster ge- 
wählt, und dann eine Linie zuerst mit dem JAMI- und 
dann mit dem JAM2-Modus gezeichnet. Wie Sie sehen, 
werden beim JAM2 Modus die in dem Muster auf O0 ge- 
setzten Punkte nun mit der vorhin gewählten Hinter- 
grundfarbe gezeichnet. Probieren Sie doch mal aus, 
was passiert, wenn sie die anderen Zeichenmodi, oder 
deren Mischung an dieser Stelle verwenden. 


Programm 4.1 Draw 


#include "Display.h" 

#include "intuition/intuition.h" 
#include "exec/types.h" 

#inc lIude "graphics/gfx. h" 
#include "graphics/gfxmacros.h" 


struct Window *Window; 
struct Screen *Screen; 
struct RastPort *Rast; 


/* Einige Linienmuster definieren. */ 
SHORT LPattern [] = 
{ Oxffoo, /* 1111111100000000 */ 
Oxfofo, /* 1111000011110000 */ 
Oxcccc, /* 1100110011001100 */ 
Oxaaaa, /* 1010101010101010 */ 


main() 


USHORT code; 
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SHORT i; 


OpenIntui(); 
OpenGfx (); 


/* Einen lowres Screen der Tiefe 4 (16 Farben) 
öffnen. */ 
Screen = (struct Screen *)MakeScr(0,0,320,250, 
“Linien",4,NULL,NULL, NULL); 
if (Screen == NULL) /* Fehler beim Öffnen. */ 
exit(FALSE); 


/* Ein GZZ-Fenster auf dem neuen Screen öffnen */ 
Window = (struct Window *)MakeWindow(0,0,320,250, 

320, 250, "Linien-Beispiel", 

WINDOWCLOSE ! GIMMEZEROZERO ! ACTIVATE, 

CLOSEWINDOW, Screen); 


if(Window == NULL) /* Fehler beim Öffnen ?_ */ 
exit(FALSE); 


/* Die Adresse des Rastports des Fensters 
ermitteln. */ 
Rast = Window->RPort; 


/* 15 Linien mit verschiedenen Farben zeichnen */ 
for(i =1; i<16; ir) 


{ 

SetAPen(Rast,i); /* Neue Farbe auswählen. */ 
Move(Rast,10,i*5); /* Grafikcursor positionieren. */ 
Draw(Rast,300,i*5); /* Linie zeichnen. * 


/* Farbe 1 als Vorder- und 2 als Hintergrund 
wählen. */ 
SetAPen(Rast,1); 
/* Und 5 neue Linien mit verschiedenen Mustern und 
Zeichenmodi. */ 
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for(i = 1; i<6; it) 


SetDrMd(Rast,JAHM1); 
/* 


Norma ler Zeichenmodus. */ 
SetDrPt(Rast,LPattern[i-1]J); 
Neues Muster auswählen. */ 


Move(Rast,10,i*10+100); /* Grafikcursor 
positionieren. */ 
Draw(Rast,300,i*10+100); /* Linie zeichnen. */ 
SetDrMd(Rast,JAM2); /* Neuer Zeichenmodus*/ 
Move (Rast,10, i*10+5+100); /* Grafikcursor 
positionieren. */ 
Draw(Rast,300, i*10+5+100);/* Linie zeichnen. */ 


N 
/* Auf Close Gadget warten */ 
i = WaitEvent(Window,&code); 


/* und alles schließen */ 
CloseWindow(Window); 
CloseScreen(Screen):; 


[]Lıinıen-keıspiel 


Bild 4.1 - Die Ausgabe des Programms Draw 
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Für komplexere Grafikobjekte genügt es allerdings 
nicht mehr, Punkte und Linien zu zeichnen. Da alle 
aus Linien bestehenden Figuren wie Rechtecke und 
Dreiecke mit Hilfe mehrere Aufrufe der Draw, oder wie 
wir später sehen werden, eines Aufrufs der PolyDraw- 
Prozedur, mühelos erzeugt werden können, bietet der 
Amiga keine eigenständige Prozedur zum Zeichnen die- 
ser Objekte. Zum Zeichnen von Kreisen und Ellipsen 
gibt es dagegen die DrawCircle- und DrawElTipse-Rou- 
tinen. DrawCircle, das in "gfxmacros. h" definiert 
wird, benötigt als Eingabe die Adresse des Rastports, 
die Koordinaten des Kreismittelpunktes und den Radi- 
us. Ein Kreis mit dem Radius 50 wird also auf diese 
Weise an der Position (150,100) gezeichnet: 


DrawCircle(Rast,150,100,50); 
Leider beachtet diese Prozedur nicht die Auflösung 
des verwendeten Displays, so daß der Kreis nur auf 
einem lowres oder einem hires-interlace Screen wirk- 


lich rund ist. 


Um eine beliebige Ellipse zu zeichnen, genügt ein 
folgender Aufruf von DrawEllipse: 


DrawE llipse(Rast,x,y,rx,ry); 


Dabei ist Rast ein Zeiger auf den Rastport, x,y die 
Koordinaten des Mittelpunktes und rx,ry der x- bzw.y- 
Radius der Ellipse. 
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Das Zeichnen verschiedener Figuren wird in dem fol- 
genden kurzen Programm vorgeführt. Es zeichnet zuerst 
konzentrische Kreise und Ellipsen mit verschiedenen 
Radien. Dann werden mittels einer dafür neu definier- 
ten Prozedur mehrere gegeneinander verschobene Recht- 
ecke erzeugt. Beachten Sie, daß das Programm in einem 
Screen und nicht in einem Fenster arbeitet. 


Programm 4.2 Figuren 


#include "Display.h" 

#include "intuition/intuition.h" 
#include "exec/types.h" 

#include "graphics/gfx.h" 
#include "graphics/gfxmacros.h" 


struct Screen *Screen; 
struct RastPort *Rast; 


main () 


long 3; 
SHORT 1; 


OpenIntui(); 
OpenGfx (); 
/* Einen hi-res Screen der Tiefe 2 (4 Farben) 
öffnen. */ 
Screen = (struct Screen *)MakeScr(0,0,320,250, 
"Figuren",2,NULL,NULL); 
if (Screen == NULL) /* Fehler beim Öffnen. */ 
exit(FALSE); 
/* Die Adresse des Rastports des Screens 
ermitteln. */ 
Rast = &((*Screen).RastPort); 


/* Die erste Figurenreihe zeichnen. */ 
for(i = 1; i <5; it) 
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{ 
DrawCircle(Rast,70,70,i*10); /* Kreis zeichnen. */ 
DrawE lTipse(Rast,250,70, i*10,50-i*10); 

/* Ellipse Zeichnen. */ 


/* Und einige Vierecke zeichnen. */ 
for(i = 1; i <10; ir) 
Rect(Rast,50+i*5,150+1*2,220+1*5,200+i*2); 


/* Abwarten und dann Screen schließen */ 
for(j = 1; j < 400000; j++); 
CloseScreen(Screen); 


/* Diese Prozedur zeichnet ein Rechteck */ 
Rect(R,x1,y1,x2,y2) 

APTR *R; 

SHORT xl, yl, x2, y2: 


Move(R,x1,y1); 
Draw(R,x2,y1); 
Draw(R,x2,y2):; 

Draw(R,x1,y2): 
Draw(R,x1,y1); 


Fıqyuween 


© & 


(L_ 7 


Bild 4.2 - Die Ausgabe Programms Figuren 
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Bisher sind wir nur in der Lage, durch Angabe einer 
Nummer, eine der maximal 32 Farben, die für den 
Screen voreingestellt sind, zu wählen. Der Amiga gibt 
Ihnen aber die Möglichkeit, eine aus einer Palette 
von 4096 verschiedenen Farben auszusuchen. Sie können 
diese normalerweise zwar nicht alle gleichzeitig be- 
nutzen, dafür aber mit der SetR&GB4-Prozedur die RGB- 
Anteile, der zur jeder Nummer gehörenden Farbe wäh- 
len (jeweils zwischen 0 und 15 liegende Rot-, Grün- 
und Blau-Anteile). Die Prozedur SetRGB4 braucht neben 
der Nummer der Farbe und der neuen RGB-Werte einen 
Zeiger auf die ViewPort-Struktur. Dies ist die grund- 
legende Struktur jeder eigenständigen Anzeige, also 
eines Screens oder eines selbsterzeugten Displays. So 
wie die Eigenschaften eines "Zeichenstiftes" in der 
RastPort-Struktur gespeichert sind, können Sie die 
wichtigsten Eigenschaften des Displays dem Viewport 
entnehmen. Sie werden später noch sehen, wie man mit 
Hilfe eines neuen Viewports diverse unter Intuition 
nicht zulässige Anzeigen realisieren kann, und dabei 
auch den genauen Aufbau der ViewPort-Struktur und die 
Bedeutung ihrer Felder kennenlernen. 


Um nun beispielsweise der Farbe Nummer 1 eine Mi- 
schung aus 7 Anteilen Grün und 7 Anteilen Blau zuzu- 
ordnen rufen Sie SetRGB4 folgendermaßen auf: 

SetRGB4(View,1,0,7,7); 
View ist selbstverständlich ein Zeiger auf die 


ViewPort-Struktur. Je nachdem, ob Sie direkt in einem 
Screen, oder in einem Fenster arbeiten, müssen Sie 


76 


Kapitel 4 Farbeinstellung und Graphik 


unterschiedlich vorgehen, um diesen zu ermitteln. Um 
den Viewport eines Fensters zu finden, können Sie 
sich der Intuition-Prozedur ViewPortAdress _ bedienen, 
die als Eingabe einen Zeiger auf ein Fenster braucht, 
und als Ergebnis die gesuchte Adresse des Viewports 
liefert. Der Viewport eines Screens ist direkt in der 
Screen-Struktur zu finden. Seine Adresse kann also 
wie folgt z.B. in die Variable View eingelesen wer- 
den: 


View = &((*Screen).Viewport); 


Dabei wird natürlich vorausgesetzt, daß Screen ein 
Zeiger auf den Screen ist. Beachten Sie auch, daß 
sich die gesamte ViewPort-Struktur, nicht nur Ihre 
Adresse in der Screen-Struktur befindet. 


Die RGB-Werte für die Farben können selbstverständ- 
lich nicht nur verändert, sondern auch jederzeit ge- 
lesen werden. Notwendig ist das beispielsweise, um 
die von vielen Zeichenprogrammen bekannte Color- 
Cycle-Funktion, die die Werte der Farbregister zyk- 
lisch verändert, zu verwirklichen. 


Die gewünschten Werte werden Ihnen von der Proze- 
dur GetRGB4 geliefert. Sie gibt Ihnen eine Zahl, in 
der die drei gesuchten Werte enthalten sind, zurück. 


Falls Sie sich wundern sollten, wie das geht, dann 
denken Sie bitte daran, daß jeder Wert zwischen 0 und 
15 liegt, also nur 4 Bit braucht, so daß eine 16 Bit- 
Zahl völlig ausreicht, um alle drei Komponenten zu 
speichern. Den Anteil einer bestimmten Farbe kann man 
mit Hilfe einer AND-Verknüpfung der erhaltenen Zahl, 
mit einem Wert, der den zu dieser Farbe gehörenden 
Bits entspricht, erhalten. Die untersten 4 Bit sind 
für die Farbe Blau reserviert, die nächsten 4 für 
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Grün und die darüberliegenden für Rot. Die obersten 4 
Bits sind bedeutungslos. Daraus folgt, daß man den 
Roten Anteil durch eine AND-Verknüpfung mit hexadezi- 
mal 0f00 (dezimal 3840), den Grünen mit 00f0 (240) 
und den Blauen mit 000f (15) bekommen kann. Hier ein 
Beispiel: 


View = ViewPortAddress(Window); 
Colors = GetRGBA(CMap,1); 

Rot = Colors & 3840; 

Gruen = Colors & 240; 

Blau = Colors & 15;J 


In diesem Beispiel müssen Window ein Zeiger auf ein 
Fenster und CMap die Adresse einer ColorMap-Struktur 
sein. Die letztere können Sie aus der ViewPort-Struk- 
tur folgendermaßen ermitteln: 


CMap = View->ColorMap; 


Wie das in der Praxis funktioniert, können Sie sich 
in dem folgenden Programm ansehen. In einer for- 
Schleife wird dort der Blauanteil aller Farben des 
Screens auf Werte von O0 bis 15 gesetzt. Dann werden 
mit jeder Farbe fünf konzentrische Kreise mit immer 
größer werdenden Radien gezeichnet, so daß durch die 
zunehmende Helligkeit der Eindruck eines dreidimensi- 
onalen Tunnels entsteht. Die Adresse des Viewports 
wird hier nicht mit der ViewPortAdress-Prozedur, son- 
dern über den zu dem Fester gehörenden Screen ermit- 
telt. Zum Schluß wird wieder in einer for-Schleife 
immer wieder der Blauanteil von zwei benachbarten 
Farbregistern vertauscht, so daß der schon erwähnte 
Color-Cycle Effekt entsteht. Da die Rot und Grün An- 
teile aller Farben null sind, wäre hier die AND Ver- 
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knüpfung nicht notwendig, um den Blauanteil zu erhal- 
ten. Wir haben sie aber trotzdem zur Demonstration 
verwendet. 


Programm 4.3 ColorCycle 


#include "Display.h" 

#include "intuition/intuition.h" 
#include "exec/types.h" 

#include "graphics/gfx.h"J 
#include "stdio.h" 


struct Screen *Screen; 
struct Window *Window; 
struct RastPort *Rast; 
struct ViewPort *View; 
struct ColorMap *CMap; 


main () 


long j, Color; 
SHORT i, k, *CAdr; 


OpenIntui(); 
OpenGfx (); 


/* Einen low-res Screen der Tiefe 4 (16 Farben) 
öffnen. */ 
Screen = (struct Screen *)MakeScr(0,0,320,200, 
"Figuren",5,NULL,NULL); 
if (Screen == NULL) /* Fehler beim Öffnen. */ 
exit(FALSE); 
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/* Fenster auf dem neuen Screen Öffnen. */ 
Window = (struct Window*)MakeWindow(0,0,320,200, 
0,0, "Hallo",SMART REFRESH! 
BORDERLESS,NULL,Screen); 
if(Window == NULL) /* Fehler beim Öffnen. */ 
exit(FALSE); 


/* Adresse des Rastports, des Viewports und der 

| ColorMap. */ 
Rast = Window->RPort; 

View = &((*Screen).ViewPort); 
CHap = View ->ColorMap; 


/* Farbregister 2 bis 15 initialisieren. */ 
SetRGB4(View,0,0,0,0); /* Hintergrundfarbe 
schwarz */ 
for(i = 1; i < 16; it) 
SetRGB4 (View, i1,0,0,i1); 
/* 80 Konzentrische Kreise zeichnen. */ 
for(i = 2; i < 16; ir) 


SetAPen(Rast, i); 
/* Neue Farbe wählen und */ 
for(k = 1; kK < 6; k++) 
/* 5 Kreise in dieser Farbe. */ 
DrawCircle(Rast,160,100, i*5+k); 
} 
} 
/* Farben 50 mal vertauschen. */ 
for(i= 2; I < 50; irr+) 
for( k= 1; k < 16; k++) 
Color = GetRGB4(CHap,k)&15; 


SetRGB4(View,k,0,0,GetRGB4A(CHap, (k+1)%14+2)815); 
SetRGB4 (View, (k+1)%14+2,0,0,Color); 
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"ARE 
for(j = 1; j < 30000; ++); 


CloseWindow(Window); 
CloseScreen(Screen); 


} 
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Nach den doch noch ein bißchen primitiven Zeichen- 
routinen, die Sie im vierten Kapitel kennengelernt 
haben, wollen wir uns hier einem komplizierteren, 
aber dafür auch interessanteren Thema zuwenden. Dabei 
handelt es sich um das Zeichnen von Vielecken und ge- 
füllten Flächen. Dabei gibt es noch eine Besonder- 
heit: die Möglichkeit, für diese Flächen verschiede- 
ne Muster bzw. Farbmuster zu verwenden. In diesem 
Zusammenhang wird ein include-File vorgestellt, das 
Ihnen bei der Initialisierung der von den Füllrouti- 
nen benötigten Strukturen (TempRas und Arealnfo) be- 
hilflich sein soll. Er erhält auch eine Prozedur, 
die Ihnen beim Zeichnen von gefüllten Polygonen eini- 
ge Arbeit abnehmen wird. 


Gute Grafik läßt sich nur schwer aus Rechtecken 
und Ellipsen allein aufbauen. Mit der DrawBorder-Pro- 
zedur haben Sie bereits eine Möglichkeit kennenge- 
lernt, beliebige Vielecke bzw. Linienzüge zu zeich- 
nen. Eine einfacherere Möglichkeit stellt die Poly- 
Draw-Prozedur der Graphics-Library dar. Diese braucht 
als Eingabe die Anzahl der Ecken, sowie einen Zeiger 
auf den Rastport und auf einen Speicherbereich, in 
dem die Koordinaten der Eckpunkte des zu zeichnenden 
Vielecks als Zahlenpaare gespeichert sind. Ein Aufruf 
muß also wie folgt aussehen, wenn über den n Ecken der 
in Koordinaten gespeicherten Werten ein Polygon ge- 
zeichnet werden soll: 


PolyDraw(Rast,n,&Koordinaten[0]); 
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Am besten ist es, wenn Sie ihre Koordinaten in 
einem Array von SHORT-Zahlen speichern und deren 
Adresse dann an diese Prozedur weitergeben. Da Sie 
die Anzahl der Ecken extra angeben, können Sie wahl- 
weise auch nur einen Teil des Vielecks zeichnen las- 
sen. Zu beachten ist lediglich, daß die Prozedur das 
Polygon nicht von selbst abschließt, d.h. daß Sie, um 
eine geschlossene Figur zu erhalten, die Koordinaten 
des ersten Punktes auch am Ende als Koordinaten des 
letzten Punktes angeben müssen. Wichtig ist auch, daß 
vor dem Zeichnen des Polygons der Grafikcursor an die 
Position der ersten Ecke gebracht wird, da ansonsten 
diese mit seiner aktuellen Position verbunden wird. 


Als Beispiel für die Anwendung der PolyDraw- 
Prozedur folgt ein Programm, das dem Benutzer die 
Eingabe der Eckkoordinaten durch Klicken der Maus 
erlaubt. Die Position der Maus beim Drücken der lin- 
ken Taste wird in dem Array Polygon, das später an 
PolyDraw übergeben wird, gespeichert, und legt somit 
die Position einer Ecke fest. Sobald die rechte Taste 
gedrückt wird, wird die Eingabe beendet, der Grafik- 
cursor positioniert und das Polygon gezeichnet. Durch 
Anfügen des ersten Koordinatenpaares am Ende des 
Arrays wird das Polygon abgeschlossen. 


Programm 5.1 Polygon 


#include "Display.h" 

#include "intuition/intuition.h" 
#include "exec/types.h" 

#include "graphics/gfx.h" 


struct Screen *Screen; 


struct Window *Window; 
struct RastPort *Rast; 
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main () 


SHORT x, y, Corners, Polygon[100]; 
USHORT code; 
ULONG Class; 


OpenIntui(); 
OpenGfx (); 


/* Einen hi-res Screen der Tiefe 2 (4 Farben) 
öffnen. */ 
Screen = (struct Screen *)MakeScr(0,0,640,250, 
"Polygon",2,HIRES,NULL); 
if (Screen == NULL) /* Fehler beim Offnen. */ 
exit(FALSE); 


/* Rahmenloses Fenster mit Close Gadget und IDCHP- 
Port öffnen. */ 

Window = (struct Window *)MakeWindow(0,0,640,250,0, 
0,"Polygon", 

SMART REFRESH! BORDERLESS ! WINDOWCLOSE ! RMBTRAP, 
CLOSEWINDOW !MOUSEBUTTONS,Screen); 

if(Window == NULL) , 

exit(FALSE); /* Fehler beim Öffnen. */ 


/* Adresse des Rastports. */ 
Rast = Window->RPort; 
/* Ecken einlesen und Polygon zeichnen. */ 
Corners = 0; /* Eckenzahl initialisieren. */ 
do 
Class = WaitEvent(Window,&code); 
if((code&MENUUP) == MENUUP) 
/* Ende der Eingabe ? */ 
break; /* da -> Schleifenabbruch. */ 
if((code&SELECTUP) == SELECTUP) 
/* Ecke eingegeben ?_ */ 


{ 
GetHouse(Window,&x,&y); 
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/* Ja -> Mauskoordinaten lesen, */ 
WritePixel(Rast,x,y): 

/* Punkt makieren, */ 
Polygon[2*Corners] = x; 

/* Koordinaten merken */ 
Polygon[2*Corners+1] = y; 
Corners++; /* und Eckenanzahl erhöhen, */ 


} 
} while (Corners < 50); 


/* Das Polygon zeichnen. */ 
Polygon[2*Corners] = Polygon[0]; 

/* Polygon abschließen */ 
Polygon[2*Corners+1] = Polygon[1]; 
Move(Rast,Polygon[0],Polygon[1]): 
PolyDraw(Rast,Corners+1,&(Polygon[0])): 


/* Auf Close Gadget warten und alles schließen. */ 
while((WaitEvent(Window,&code) != CLOSEWINDOW)); 
CloseWindow(Window); 

CloseScreen(Screen); 


Bild 5.1 -Eine Beispielausgabe des Programms Polygone 
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Die Befehle zur Erzeugung gefüllter Flächen sind in 
sich relativ simpel, vor ihrer Anwendung müssen aber 
in der Regel einige Vorbereitungen getroffen werden. 
Der Grund dafür ist darin zu suchen, daß das System 
um komplizierter geformte Flächen korrekt und schnell 
zu füllen, zusätzlichen freien Speicher als Zwischen- 
ablage für Bilddaten und Eckkoordinaten benötigt. Die 
Verfügbarkeit, Größe und Adresse dieses Speichers 
entnehmen die Grafikprozeduren den Datenstrukturen 
TempRas und_Arealnfo, deren Adressen in der RastPort- 
Struktur eingetragen werden müssen. 


Um diese Strukturen initialisieren zu könnnen, müs- 
sen Sie zuerst den benötigten Speicher reservieren. 
Der Bildatenzwischenspeicher, der durch TempRas be- 
schrieben wird, muß im CHIP-Ram liegen, und groß 
genug sein, um den gesamten in jeweils einer Bitplane 
liegenden Teil der zu füllenden Fläche komplett auf- 
zunehmen. Beachten Sie dabei, daß sich die Größe des 
für eine Figur benötigten Speichers aus dem Produkt 
ihrer maximalen Höhe und Breite ergibt. Für ein Drei- 
eck der Höhe 90 Pixel un Breite 70 Pixel brauchen Sie 
also einen Speicher von 90x70 Bit, was aufgerundet 
(Speicherplatz wird ja nur in ganzen Bytes verwal- 
tet!) 12x10 = 120 Bytes = 6x5 Prozessorwörtern, 
entspricht. Um eine TempRas-Struktur zu initialisie- 
ren, muß, nach dem der Speicher alloziert wurde, die 
InitTempRas-Routine der Graphics-Library folgenderma- 
Ben aufgerufen werden: 


InitTmpRas(&TRas,Memory,Size) 
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Memory ist dabei der Zeiger auf den allozierten 
Speicherbereich und Size seine Größe. In TRas wird 
ein Zeiger auf die initialisierte TempRas-Struktur 
zurückgegeben (TRas muß also vom Typ TempRas sein). 
Diesen müssen Sie, um den so erzeugten TempRas einem 
Rastport zur Verfügung zu stellen, nur noch wie folgt 
in die entsprechende RastPort-Struktur eintragen: 


Rast->TempRas = TRas; 


Denken Sie daran, daß Sie den Speicher später durch 
Deallozieren wieder freigeben und das TempRas-Feld 
des Rastports wieder auf NULL setzen. 


Als nächstes muß die Arealnfo-Struktur erzeugt wer- 
den. Der dafür benötigte Speicher hängt davon ab, 
welche Füllroutine Sie gebrauchen wollen. Grundsätz- 
lich gilt, daß pro Ecke der zu zeichnenden Figur 10 
Bytes benötigt werden. Für ein Polygon mit 10 Ecken 
bräuchten Sie also einen 100 Byte großen Buffer. Die 
Arealnfo-Struktur wird nach der Allozierung des 
Speichers durch den folgenden Aufruf der InitArea- 
Prozedur initialisiert: 


InitArea(&AInfo,Buffer,Size); 


In den beiden Parametern Buffer und Size müssen Sie 
die Adresse des Buffers und die Anzahl der Ecken mal 
2 angeben. In AInfo wird dann ein Zeiger auf die ini- 
tialisierte Arealnfo-Struktur zurückgegeben, den Sie 
wieder in die RastPort-Struktur wie folgt eintragen 
müssen. 


Rast->AreaInfo = &Areal; 
Wie Sie sehen, ist die Vorbereitung zum Füllen 


von Flächen doch relativ aufwendig. Um Ihnen zukünf- 
tig die damit verbundene Mühe zu ersparen, wird in 
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dem hier abgedruckten "include"-File die Prozedur 
NewArea_ definiert, die alle oben beschriebenen Maß- 
nahmen für Sie erledigt. Zusätzlich beinhaltet die- 
ser File auch noch eine Prozedur, die den von Tempras 
und Arealnfo belegten Speicher wieder freigibt 
(CloseArea) und eine, die ein gefülltes Polygon 
zeichnet (PolyFilT). Auf die Funktionsweise und das 
Aufrufformat der letzten Prozedur werden wir in einem 
späteren Abschnitt zurückkommen. In NewArea wird eine 
neue Art Speicherplatz zu allozieren verwendet. Bei 
dieser Methode wird die Intuition-Routine AllocRemem- 
ber aufgerufen, die den gewünschten Speicher reser- 
viert und seine Größe in einer Remember- Struktur 
speichert. Neben der Größe und Art des benötigten 
Speichers müssen Sie der Routine auch noch die 
Adresse eines Zeigers auf eine solche Struktur über- 
geben. Falls dieser Zeiger NULL ist, wird dort die 
Adresse einer neuen ARemember-Struktur hinein ge- 
schrieben. Sie können später wenn Sie weitere Spei- 
cherbereiche allozieren, diesen Zeiger wieder verwen- 
den, wodurch-die neue Aemember-Struktur einfach an 
die alte "angehängt" wird. Der Vorteil dieses Verfah- 
rens liegt darin, daß es möglich ist, mehrere Be- 
reiche, die so alloziert wurden, zu einem späteren 
Zeitpunkt durch einen einzigen Aufruf von FreeRemem- 
ber wieder freizugeben. Man braucht sich dabei nicht 
mal die Größe dieser Bereiche zu merken. 


Remember Remember 


NULL 


Bild 5.2 - Die interne Verwaltung der Remember- 
strukturen 


90 


Kapitel 5 Polygone, Flaechen, Fuellmuster 


Programm 5.2 AreaExtras 


#include "intuition/intuition.h" 
#include "exec/types.h" 

#include "exec/memory.h" 
#include "graphics/gfx.h" 


/* Diese Prozedur initialisirt ein TempRas und 
ein Arealnfo */ 
NewArea (Rast,Corners,RPointer) 


SHORT Corners;APTR *RPointer; 
struct RastPort *Rast; 


static struct TmpRas TRast; 
static struct Arealnfo Areal; 
struct Remember *Rm; 

APTR TBuffer, ABuffer; 

long PlaneSize; 


Rm = NULL; 
/* CHIP-Memory für Temprast und AreaBuffer 
allozieren. */ 
FPlaneSize = (Rast->BitMap->BytesPerRow)*(Rast-> 
BitMap->Rows); 
TBuffer = AllocRemember(&Rm,PlaneSize,MEMF CHIP | 
MEHF PUBLIC); 
if (TBuffer == NULL) /* Fehler beim Allozieren ? */ 


exit(FALSE); 

ABuffer = AllocRemember (&Rm,Corners*10,MEHF CHIP | 
MEHF PUBLIC); 

if (TBuffer == NULL) /* Fehler beim Allozieren ? */ 

exit(FALSE); 


/* TempRas und Arealnfo initialisieren, */ 
InitArea(&AreaI,ABuffer,2*Corners); 
InitTmpRas(&TRast, TBuffer,PlaneSize); 
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/* und seine Adresse im Rastport eintragen. */ 
Rast->TmpRas = &TRast; 

Rast->Arealnfo = &Areal; 

*RPointer = Rm; 


/* Diese Prozedur gibt den für TempRas und Arealnfo 
nötigen Speicher frei */ 
void CloseArea(Rast,RPointer) 


APTR RPointer; 
struct RastPort *Rast; 


{ 

FreeRemember(&RPointer, TRUE); /* Speicher 
freigeben. */ 

Rast->Arealnfo = NULL; 

/* Eintrag im RastPort löschen. */ 

Rast->TmpRass = NULL; 


/* Diese Prozedur erzeugt ein gefülltes Polygon. */ 
void PolyFill(Rast,Polygon,Corners) 


struct RastPort *Rast; 
SHORT *Polygon; 
SHORT Corners; 


SHORT i; 
APTR Remember; 


/* TempRas und Arealnfo initialisieren. */ 
NewArea(Rast,Corners,&Remember); 


/* Grafikcursor zum Startpunkt, Ecken erzeugen und 
Polygon zeichnen. */ 

AreaMove (Rast, *Polygon, *(Polygon+1)); 

for(i = 1; i < Corners; i++) 
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AreaDraw(Rast, *(Polygon+2*i),*(Polygon+2*i+1)); 
AreaEnd(Rast); 


/* TempRas und Arealnfo löschen. */ 
CloseArea(Rast,Remember); 


Wie dem Listing zu entnehmen ist, können Sie die 
NewArea und CloseArea Prozeduren folgendermaßen ge- 
brauchen: 


NewArea (Rast,Corners,RPointer); 
CloseArea(Rast,RPointer); 


Die Parameter haben dabei folgende Bedeutung: 


Rast: Zeiger auf den Rastport. 

Corners: Die Anzahl der Ecken. 

RPointer: Die Adresse eines Zeigers auf eine 
Remember-Struktur. 


Da man im voraus oft nicht genau sagen kann, wie 
groß die zu füllende Fläche ist, ist es am sinnvoll- 
sten, für den TempRas eine ganze Bitplane zu reser- 
vieren. Genau das tut auch das obige AreaExtras Pro- 
gramm, das die Größe der Bitplane wie folgt ermit- 
telt: 


b = Rast->BitMap->BytesPerRow; 
h = Rast->BitMap->Rows; 
PlaneSize = b*h; 


Dabei wird über den in Rast enthaltenen Zeiger auf 
die ARastPort-Struktur auf die BitMap-Struktur zuge- 
griffen, wo die Anzahl der Bytes pro Zeile (BytesPer- 
Row) und die Anzahl solcher Zeilen(Rows) gespeichert 
sind. Auf der Programmdiskette befindet sich des oben 
abgedruckte File in der Directory include unter dem 
Namen AreaExtras.h. 
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Als erstes wollen wir in diesem Abschnitt die 
Flood-Routine, die eine beliebige geschlossene Fläche 
um die angegebenen Koordinaten füllt, betrachten. 
Diese wird wie folgt 


Flood(Rast, Mode, x, y): 


aufgerufen und kann dazu verwendet werden, eine 
mit den schon beschriebenen Zeichenprozeduren erzeug- 
te Figur nachträglich zu füllen. Dafür stehen Ihnen 
zwei Modi, die durch die Mode-Variable ausgewählt 
werden können, zur Verfügung: 


(1) outline-mode 

Falls Sie diesen Modus wählen, werden alle Punkte 
um X,y, die nicht die Area-Outline Farbe haben, in 
der aktuellen Vordergrundfarbe gezeichnet. 
Der Füllvorgang wird also dann gestoppt, wenn eine 
mit der Area-Qutline Farbe gezeichnete Umrandung 
erreicht wird. Die Area-Outline Farbe in dem Rastport 
Rast kann mit Hilfe der_SetOPen Routine so auf den in 
Color enthaltenen Wert gesetzt werden: 


SetOPen(Rast,Color); 


Dieser Modus wird eingeschaltet, wenn Mode den 
Wert O hat. 
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(2) color mode 

In diesem Modus werden alle Punkte mit der aktu- 
ellen Vordergrundfarbe gefüllt, die um x,y liegen und 
die die gleiche Farbe besitzen, die der Punkt an 
der Position x,y hat. Der Füllvorgang wird hier been- 
det, wenn irgendeine geschlossenen Umrandung er- 
reicht wird. Dies ist der am häufigsten verwendete 
Modus. Um ihn auszuwählen, setzen Sie Mode auf 1. 


Im Outline-Modus können Sie die F/lood-Routine ver- 
wenden, ohne vorher einen TempRas eingerichtet zu 
haben. Da das Füllen dabei extrem langsam vor sich 
geht, sollte man dies jedoch nach Möglichkeit vermei- 
den. Ein Versuch, ohne TempRas im color-Modus zu 
Füllen, bleibt entweder ohne Wirkung, oder endet mit 
einem Besuch beim Guru! 


Wenn Sie ein Rechteck, eine Ellipse oder einen 
Kreis direkt ausgefüllt zeichnen wollen, dann können 
Sie sich der_RectFill, AreaEllipse, oder AreaCircle- 
Prozeduren bedienen. RectFilT kann auch ohne einen- 
TempRas gebraucht werden und erzeugt, wie der Name 
schon sagt, ein gefülltes Rechteck. Ein Rechteck, 
dessen linke obere Ecke bei (10,10) und rechte 
untere bei (110,110) liegen (Daraus ergibt sich Höhe 
=Breite = 100 Pixel), kann in dem durch Rast bestimm- 
ten Rastport so gezeichnet werden: 


RectFill(Rast,10,10,110,110); 


Für AreaEllipse und AreaClircle müssen wie im 
vorigen Abschnitt beschrieben, ein TempRas und Area- 
Info initialisiert werden. Die Anzahl der Ecken ist 
dabei auf 4 zu setzen. Um eine Ellipse mit den Radien 
90 (x-Radius) und 50 (y-Radius) und einen Kreis mit 
dem Radius 110 um den Punkt (320, 100) zu erzeugen 
muB man, nachdem die ensprechenden Vorbereitungen 
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(TempRas, AreaInfo) getroffen wurden, die beiden Pro- 
zeduren so aufrufen: 


AreaE lTipse(Rast,320,100, 90,50) ;<<Return>>AreaCircle 
(Rast,320,100,110); 


AreaCircle ist in graphics/gfxmacros definiert. 


Die schon im Zusammenhang mit FJood erwähnte Area- 
Outline Farbe bietet zusätzlich noch die Möglichkeit, 
gefüllte Figuren mit einer Umrandung zu zeichnen. 
Dazu müssen Sie vor dem Aufruf der gewünschten 
Zeichenroutine mit Hilfe von $SetOPen eine Farbe aus- 
wählen. Gleichzeitig wird dabei ein Flag im RastPort 
gesetzt, der dem System mitteilt, daß alle Flächen 
umrandet werden sollen. Um diesen Flag wieder zu 
löschen, können Sie das BNDRYOFF-Macro benutzen, das 
in graphics/gfxmacros definiert ist. Der Aufruf sieht 
so aus: 


BNDRYOFF(RAST); 


Die Anwendung der soeben besprochenen Prozeduren 
können Sie sich an Hand des folgenden Programms 
Klarmachen. Es eröffnet ein Fenster und zeichnet dort 
zwei sich überlappende Ellipsen. Danach wird die 
Area-OQutline Farbe auf die Farbe der zweiten Ellipse 
gesetzt, und diese im OQutline-Modus gefüllt. Obwohl 
sich die Ellipsen überlappen, wird die gesamte rechte 
Ellipse gefüllt, da das Füllen erst dort aufhört, wo 
sich die Area-Qutline Farbe befindet. Würden Sie hier 
den color-Modus verwenden, dann würde die Ellipse nur 
bis zur Über lappung gefüllt werden. Als nächstes wird 
mit ARectFill ein Viereck gezeichnet und dann mit 
Hilfe der in Areakxtras.h definierten NewArea-Proze- 
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dur ein TempRas und ein Arealnfo für die nachfolgen- 
den Flood und AreaEllipse Aufruf bereitgestellt. 
Beachten Sie um wieviel schneller das Füllen mit 
Flood nun geht. Zum Abschluß werden mit C/oseArea der 
TempRas und Arealnfo wieder geschlossen. 


Programm 5.3 Fill 


#include "Display.h" 

#include "AreaExtras.h" 

#include "exec/types.h" 

#include "intuition/intuition.h" 
#include "graphics/gfx.h" 
#include "graphics/gfxmacros.h" 


struct Window *Window; 
struct RastPort *Rast; 
struct Remember *Remember ; 


main () 


USHORT code; 
ULONG Class; 


OpenIntui(); 
OpenGfx (); 
/* Fenster mit Close- und Depth Gadget und IDCMP- 
Port öffnen. */ 
Window = (struct Window *)MakeWindow(0,0,640,250,0, 
0,"Fill", SHART REFRESH! 
WINDOWCLOSE IWINDOWDEPTH, CLOSEWINDON, NULL); 
if(Window == NULL) /* Fehler beim Öffnen. */ 
exit(FALSE); 
Rast = Window->RPort; /* Adresse des Rastports. */ 


97 


Kapitel 5 Polygone, Flaechen, Fuellmuster 


/* Zwei überschneidende Ellipsen mit verschiedenen 
Farben zeichnen. */ 
SetAPen(Rast,1); 
DrawE TTipse(Rast,220,50,150,40); 
SetAPen(Rast,2); 
/* Neue Vordergrundfarbe ! */ 
DrawE lTipse(Rast,440,50,150,40); 
/* Zweite Ellipse im Füllmodus 0 Füllen. */ 
SetOPen(Rast,2); 
/* Neues Area Outline Pen und */ 
SetAPen(Rast,2); 
/* Vordergrundfarbe. */ 
Flood{Rast,0,440,50); 
/* Ellipse 2 im Modus 0 füllen */ 


/* Ein gefülltes Rechteck mit Farbe 1 und Umran- 
dung 2 Zeichnen */ 

SetAPen(Rast,1); 

RectFill(Rast, 100,110,540,170); 


/* TempRas und Arealnfo initialiseren */ 
NewArea (Rast,4,&Remember); 


/* Ellipse 1 im Modus 1 füllen */ 
Flood(Rast,1,120,50); 


/* Eine Gefüllte Ellipse mit farbe 2 Zeichnen. */ 
SetAPen(Rast,2); 

AreaE llipse(Rast,320,200,150,40); 

Class = AreaEnd{Rast); 


/* Auf Close Gadget warten und Fenster schließen */ 
Class = WaitEvent(Window,&code); 
/* Auf Close Gadget warten */ 
CloseArea(Rast,Remember); 
/* Speicher dea llozieren */ 
CloseWindow(Window); 
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Falls Sie sich die in AreaExtras definierte Proze- 
dur PolyFilT angesehen haben, werden Sie gemerkt 
haben, daß das Zeichnen von gefüllten Vielecken nicht 
ganz so einfach vor sich geht, wie es bei normalen 
Polygonen der Fall ist. Zunächst müssen, wie auch bei 
den Kreisen und Ellipsen, TempRas und Arealnfo ent- 
sprechend der Größe und Eckenzahl des Polygons ini- 
tialisiert werden. Als nächstes muß mit Areafove der 
Anfangspunkt des Polygons bestimmt werden. Nun können 
z.B. in einer for-Schleife die erwünschten Eckkoordi- 
naten mit AreaDraw dem System mitgeteilt werden, und 
schließlich das Polygon mit AreaEnd ausgegeben wer- 
den. An AreaMove und AreaDraw wird derZeiger auf den 
Rastport und das Koordinatenpaar übergeben, an 
AreaEnd nur der Zeiger auf den Rastport. So kann ein 
gefülltes Dreieck mit den Eckkoordinaten (100,10), 
(200,100), (0,200) nach diesem Verfahren, wie folgt 
gezeichnet werden. 


Fig 5.1 Zeichnen eines gefüllten Polygons. 


NewArea(Rast,3,&Remember); 
AreaMove(Rast,100,10); 


AreaDraw(Rast,100,10); 
AreaDraw(Rast,200,100); 
AreaDdrwa(Rast,0,200); 


AreaEnd(Rast); 
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Einfachheitshalber haben wir hier zur Initialisie- 
rung des TempRas und Arealnfo die Prozedur NewArea 
benutzt. Wesentlich einfacher können Sie ein gefüll- 
tes Vieleck unter Anwendung der schon erwähnten 
PolyFill-Prozedur erzeugen, die wir für Sie in 
AreaExtras vereinbart haben. Diese übernimmt nicht 
nur die AreaMove, AreaDraw und AreaEnd Aufrufe, 
sondern auch die Allozierung und Deallozierung des 
TempRas und des Arealnfo. 


Als Eingabe braucht PolyFilT wie auch die bekannte 
Systemroutine PolyDraw nur die Anzahl der Ecken, und 
die Adressen des Rastports und eines Arrays, in dem 
die Koordinaten der Ecken gespeichert sind. Um unser 
Dreieck auf diese Weise zu zeichnen, müssen Sie also 
folgendes tun: 


(1) Ein Koordinatenarray so vereinbaren: 


short Dreieck [] = {100,10, 200,100, 0,200}; 


(2) PolyFill so aufrufen: 
PolyFill(Rast,&Dreieck[0],3): 
Ein weiteres Beispiel für die Anwendug dieser 


Routine finden Sie im letzen Beispielprogramm dieses 
Kapitels. 
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Eine Fläche kann nicht nur mit einer Farbe, sondern 
auch mit einem Muster gefüllt werden. Das Muster muß 
eine Breite von 16 Punkten und die Höhe einer 
Zweierpotenz also 1,2,4,8....usw. haben. Die Bildda- 
ten für das Muster werden, wie auch bei einem Image 
(siehe Kapitel 3) der Tiefe 1, in einem Array von 
USHORT Zahlen gespeichert, von denen jeder einer 
Bildzeile entspricht. In diesen Zahlen ist dann jedes 
Bit stellvertretend für einen Punkt. Ist das Bit 
gesetzt, so erscheint dieser Punkt in dem Muster, ist 
es gelöscht, dann erscheint er nicht. Ein horizonta- 
les Streifenmuster, das abwechselnd aus einer Zeile 
gesetzter und nicht gesetzter Punkte besteht, hat 
somit diese Form: 


1111111111111111 
0000000000000000 


und muß wie folgt definiert werden: 


USHORT Muster [] = {Oxfffrf, 
0x0000 


14 


Ein so erzeugtes Muster können Sie mittels SetAfPen 
einem Rastport zuordnen. Dazu müssen Sie diese Rou- 
tine wie folgt Aufrufen: 


SetAfPen(Rast,&Muster,Rows); 
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Hier bedeutet Rast einen Zeiger auf einen Rastport, 
Muster das Array, in dem die Bilddaten gespeichert 
sind, und Rows eine Zweierpotenz, die die Anzahl der 
Zeilen des Musters bestimmt (in unserem Beispiel 
müßte hier eine 1 stehen, denn 2 hoch 1 = 2). 
Nach diesem Aufruf wird beim Füllen bis auf weiteres 
dieses Muster verwendet, d.h. es werden nur die in 
dem Muster gesetzten Punkte in die Fläche hineinge- 
zeichnet (Zumindest wenn Sie als Zeichenmodus JAMI 
benutzen). Wichtig ist, daß bei der Verwendung von 
Mustern alle Füllroutinen, also auch RectFill und 
Flood auch im outline-Modus einen TempRas benötigen! 


Um das Füllmuster auszuschalten, rufen Sie SetAfPen 
mit NMULL als Zeiger auf Bilddaten und 00 als Anzahl 
der Zeilen auf. 


Ein Beispiel für die Verwendung von Füllmustern 
finden Sie in dem Programm Fill am Ende dieses 
Kapitels. 


Die Farbmuster sind eine Variante der normalen 
Füllmuster, die es möglich macht, Flächen auch mehr- 
farbig zu füllen. Dabei geben Sie für jede Bitplane 
ihrer Anzeige ein eigenes Muster an. Beim Füllen wird 
dann jede Bitplane mit dem zu Ihr gehörenden Muster 
gefüllt. Dadurch können Sie für jeden Punkt ihres 
Musters eine eigene Farbe angeben. Zur Verdeutlichung 
stellen Sie sich einmal vor, daß Sie für einen aus 
zwei Bitplanes bestehenden Screen folgendes Muster 
definieren: 
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Bitplane 0 


1111111111111111 
1111111111111111 
0000000000000000 
0000000000000000 


Bitplane 1 


0000000000000000 
1111111111111111 
1111111111111111 
0000000000000000 


Da die erste Zeile des Musters nur in der Bitplane 
Einsen hat, werden alle Punkte in dieser Zeile die 
Farbe binär 01 = dezimal 1 haben. In der zweiten 
Zeile gibt es sowohl in der Bitplane 0 als auch in 
der Bitplane 1 Einsen, so daß diese Zeile die. Farbe 
binär 11 = dezimal 3 haben wird. Analog werden die 
vorletzte Zeile, wo sich alle Einsen in der Bitplane 
1 befinden die Farbe binär 10 = dezimal 2, und die 
letzte, die in beiden Bitplanes nur Nullen hat, die 
Farbe 0 haben. Man könnte natürlich auch durch 
entsprechendes Abwechseln von Nullen und Einsen alle 
vier Farben innerhalb einer Zeile mischen. Die Bild- 
daten des Farbmusters werden, wie es auch bei den 
normalen Mustern der Fall war, in einem USHORT Array 
gespeichert, wobei die Daten für die einzelnen Bit- 
planes einfach hintereinander angeordnet sind. 


Die Bildaten zu dem soebenen besprochenen Farbmu- 
ster sehen demnach folgendermaßen aus: 


103 


Kapitel 5 Polygone, Flaechen, Fuellmuster 


USHORT Farbmuster [] = {Oxffff, /* Bitplane 0 */ 
Oxffff, 
0x0000, 
0x0000, 


0x0000, /* Bitplane 1 */ 
Oxffff, 
Oxffff, 
0x0000 


Auch die Zuordnung des Muster an einen Rastport 
sieht hier fast genauso wie bei den Füllmustern aus. 
Der einzige Unterschied besteht darin, daß die 
Zweierpotenz, die die Anzahl der Zeilen bestimmt, als 
eine negative Zahl angegeben wird. Um unser Beispiel- 
muster einem Rastport mit der Adresse Rast zuzuord- 
nen, müßte man also folgendermaßen vorgehen: 


SetAfPen(Rast,&Farbmuster, -2); 


Zum Abschluß des Kapitels noch ein Beipielprogramm, 
daß die Anwendung der PolyFill-Routine und der Füll- 
und Farbmuster demonstriert. Es definiert ein Füll- 
und ein Farbmuster, und zeichnet dann mit jedem eine 
gefüllte Raute. 


Programm 5.4 Muster 

#include "Display.h" 

#include "Areakxtras.h" 
#include "graphics/gfxmacros.h" 


struct Window *Window; 
struct RastPort *Rast; 
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short Polyl1 [] = {320, 15, 
630, 125, 
320, 245, 
10, 125 


[4 


short Poly2 [] = {320, 50, 
520, 125, 
320, 205, 
120, 125 


14 


USHORT Pattern [] = [Oxfffrf, 
Oxfoof, 
Oxfoof, 
oxffff 


7 


USHORT CoIPattern [] = { Oxffff, 
Oxfoof, 
Oxfoof, 
Oxffff, 
Oxffff, 
0x0ff0, 
0x0ff0, 
Oxffff 


}i 


main () 


USHORT code; 
ULONG Class; 


OpenIntui(); 
OpenGfx (); 
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/* Fenster mit Close- und Depth-Gadget und IDCHP- 
Port öffnen. */ 
Window = (struct Window *)MakeWindow(0,0,640,250,0, 
0,"Fi11",SMART REFRESH! 
WINDOWCLOSE !WINDOWDEPTH, CLOSEWINDOW, NULL); 
if(Window == NULL) /* Fehler beim Öffnen. */ 
exit(FALSE); 
Rast = Window->RPort; /* Adresse des Rastports. */ 


/* Flähenmuster zum Füllen einstellen, */ 
SetAfPt(Rast,&Pattern[0],2); 


/* und ein gefülltes Polygon zeichnen. */ 
PolyFill(Rast,&Poly1[0],4); 


/* Farbmuster zum Füllen einstellen, */ 
SetAfPt(Rast,&CoIPattern[0],-2); 


/* und ein gefülltes Polygon zeichnen. */ 
PolyFill(Rast,&Poly2[0],4); 


/* Auf Close-Gadget warten und Fenster schließen. */ 
Class = WaitEvent(Window,&code); 


/* Auf Close Gadget warten */ 
CloseWindow(Window); 
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Kapitel 6 
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Bis auf die Textausgabe und die Handhabung der 
Fonts, sollten Sie die Grundlagen der Grafikprogram- 
mierung auf dem Amiga beherrschen, bevor Sie in die- 
sem Kapitel weiter vordringen. In diesem Kapitel wer- 
den wir noch ein paar Dinge erwähnen, die in keines 
der vorangegegangenen Kapitel so richtig passen, ob- 
wohl diese für die Grundlegende Grafikprogrammierung 
durchaus nützlich sind. Auf die etwas komplexeren 
Themen wie Blitter, eigene Viewports etc. werden wir 
uns dann im nächsten Kapitel stürzen. Einige dieser 
Themen, wie z.B. die Forbid und Permit Routinen, ha- 
ben zwar vordergründlich nichts mit der Grafik- 
Library zu tun, der erfahrene Programmierer weiß 
aber, daß er sie früher oder später auch bei der 
Grafikprogrammierung benötigen wird. 


DERREERTT 


und: Intus3tionBase-sStrukturen:: 


Diese beiden globalen Strukturen werden beim Offnen 
der entsprechenden Library initialisiert, wobei die 
OpenLibrary Prozedur jeweils die Adresse als Ergebnis 
liefert. Falls Sie zum Offnen der Library die in Ka- 
pitel 2 vorgestellte Prozedur OpenIntui bzw. OpenGfx 
benutzen, dann steht Ihnen diese Adresse in der glo- 
balen GfxBase- bzw. IntuitionBase-Variable direkt zur 
Verfügung. In der GfxBase-Struktur finden Sie unter 
anderem die Adresse des aktiven Viewports (im Feld 
ActiveView-ViewPort), die Liste der verfügbaren Fonts 
(in TextFonts), die Interrupts für Blitter und Timer 
(in Timsrv bzw. Bltsrv) und die aktuellen Display- 
Flags (in DisplayFlags). 
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Um beispielsweise die Adresse des momentan aktiven 
Viewports in View einzulesen, müssen Sie also folgen- 
dermaßen vorgehen: 


View = GfxBase->ActiveView->ViewPort; 


Die IntuitionBase-Struktur enthält noch um einiges 
mehr an wichtigen Informationen. Dazu gehören z.B.die 
Adressen des aktiven Screens und des aktiven Fensters 
(in ActiveScreen bzw. ActiveWindow) ‚ein Zeiger auf die 
Preferences-Struktur (in Preferences), die Adressen 
der Image-Strukturen einiger Systemimages (in Check- 
Image bzw. Amigalcon) und die Zeiger auf die System- 
gadgets (in SysGadgets). 


Besonderes nützlich ist auch die Adresse des ersten 
Screens der Intuition Screenliste, die Sie in First- 
Screen finden. Durch untersuchen des NextScreen-Fel- 
des dieser $creen-Struktur können Sie die Adresse des 
nächsten ermitteln, und von dort auf die gleiche Wei- 
se die des übernächsten usw., so daß Sie die Mög- 
lichkeit haben, auf alle Screens zuzugreifen. 


In der Screen-Struktur befindet sich übrigens ein 
Feld namens FirstWindow, das einen Zeiger auf das 
erste Fenster dieses Screens beinhaltet. Da jedes 
Fenster in NextWindow die Adresse des nächsten bein- 
haltet, stehen Ihnen so auch alle Fenster zur Manipu- 
lation offen! 
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NULL 


Bild 6.1 - Die Verknüpfung von Screens und Windows 


Eine vollständige Behandlung der GfxBase-und Intui- 
tionBase-Strukturen. ist hier weder möglich noch not- 
wendig. 


Strukturen in den entprechenden include-Files 
(graphics/gfxbase., bzw. intuition/intuitionbase. ) 
genauer ansehen. Wichtig ist, daß alle Felder zwar 
bedenkenlos gelesen werden können, jedoch nur mit 
äaußerster Vorsicht verändert werden dürfen. 


Ein Beispiel für einen sinnvollen Gebrauch der In- 


tuitionBase-Struktur finden Sie im nächsten Beispiel- 
programm. 
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Scrollen bedeutet nichts anderes, als ein verschie- 
ben von Auschnitten eines Bildes, und ist jedem von 
Ihnen von Spielprogrammen sicherlich bekannt. Die 
Graphics-Library enthält eine Prozedur, mit deren 
Hilfe ein Rechteck innerhalb eines Rastports um einen 
beliebigen Betrag in x- oder y-Richtung gescrollt 
werden kann. 


Es handelt sich dabei um die Routine ScrollRaster, 
die als Eingabe die Rastportadresse (Rast), den zu 
scrollenden x- und y-Betrag (dx,dy) in Pixel und die 
Position und Größe des Rechtecks braucht (x1, yl für 
die rechte obere Ecke, x2, y2 für die linke untere 
Ecke). Der Aufruf sieht dann so aus: 


ScrollRaster(Rast,dx,dy,x1,y1,x2,y2); 


Um also ein Quadrat mit der Seitenlänge 50 Pixel, 
dessen linke obere Ecke bei (10,20) liegt,um 30 Pixel 
nach rechts und 15 nach unten zu Scrollen, müssen Sie 
ScrollRast wie folgt benutzen: 


ScrollRast(Rast,-30,-15,10,20,60,70); 


Nach diesem Aufruf wird der gewünschte Bereich 
blitzschnell um den angegebenen Betrag bewegt und der 
freigewordene Platz mit der aktuellen Hintergrundfar- 
be gefüllt. Um den oft erwünschten Effekt des langsa- 
men Scrollens zu erreichen, müssen Sie statt einmal 


111 


Kapitel 6 Prozeduren und Tricks 


um einen großen Betrag, mehrmals um einen kleinen 
Scrollen, wobei gegebenfalls zwischen den einzelnen 
Scrollschritten eine Warteschleife anzubringen ist. 
Eine weitere oft erwünschte Variante des Scrollens 
ist das Rollen, d.h. daß das, was auf der einen Seite 
weggescrollt wird, auf der anderen wieder erscheint. 
Dies kann einfach dadurch erreicht werden, daß man 
den Bereich der "verschwinden" wird kopiert, bevor 
man anfängt zu Scrollen, und nach dem Scrollen auf 
der anderen Seite wieder einsetzt. Obwohl Kopierrou- 
tinen zu dem Thema Blitter gehören, das erst später 
behandelt wird, wollen wir hier wieder mal ein biß- 
chen vorgreifen und eine solche Prozedur vorstellen. 
Sie heißt ClipBlit und erlaubt das Kopieren von Aus- 
schnitten eines Rastports. 


Das Aufrufformat hat die folgende Form: 
ClipBlit(From,x1,y1,To,x2,y2,w,h,mask); 


From und To sind hier die Zeiger auf den Quell-bzw. 
Zielrastport, x1 und yl geben die Koordinaten an, an 
den sich die linke obere Ecke des zu kopierenden Be- 
reiches befindet. Die Stelle, an die der Ausschnitt 
im To Rastport kopiert wird, ist durch x2 und y2 
(wieder die Koordinaten der linken oberen Ecke), sei- 
ne Größe durch wund A (Breite und Höhe), bestimmt. 
Die Bedeutung des letzten Paramter werden wir später 
im Zusammnenhang mit weiteren Blitterroutinen kennen- 
lernen. Falls Sie mit dieser Routine nicht zwischen 
zwei verschiedenen Rastports, sondern innerhalb eines 
und desselben kopieren wollen, dann weisen Sie 
einfach From und To den gleichen Wert zu. Genau dies 
tun wir auch in dem hier abgedruckten Beispielpro- 
gramm, mit dem sich der gesamte momentan aktiver 
Screen einmal "herumrollt". Dazu wird 639 mal die 
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vorletzte Spalte der Anzeige in die erste kopiert und 
dann der ganze Rastport des Screens um ein Pixel nach 
rechts gescrollt. Dabei geht leider das, was sich vor 
dem Starten des Programms in der ersten Spalte be- 
fand, verloren, wir kommen dafür aber ohne einen zu- 
sätzlichen Rastport als Zwischenspeicher aus 
(Das korrekte Verfahren sähe so aus: die vorletzte 
Spalte vor jedem Scrollschritt in einen anderen Rast- 
port kopieren, und erst danach in die erste Spalte 
einsetzten!). 


Um die Adresse des Rastports des aktiven Screens 
zu ermitteln, wird wie im vorigen Abschnitt beschrie- 
ben, auf die IntuitionBase-Struktur zugegeriffen. 


Programm 6.1 ScreenWrap 


#include "exec/types.h" 

#include "intuition/intuition.h" 
#include "intuition/intuitionbase.h" 
#include "graphics/gfx.h" 

#include "Display.h" 

#include "stdio.h" 


struct Screen *Screen; 
struct RastPort *Rast; 
main () 

SHORT i; 


OpenIntui (); 
OpenGfx (); 
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/* Adresse des aktiven Screens und dessen Rastports 
ermitteln */ 

Screen = IntuitionBase->ActiveScreen; 

Rast = &((*Screen).RastPort); 


/* Und den aktiven Screen ein mal herumrscrollen */ 
for(i = 1; i < 640; i++) 


{ 
ClipBlit(Rast,639,1,Rast,1,1,1,255,0x00c0); 
/* Eine Spalte kopieren */ 
ScrollRaster(Rast,-1,0,1,1,639,255); 

/* Um eine Spalte Scrollen */ 


Oft, wie z.B. bei Malprogrammen, wird der Benutzer 
Ihres Programms irgend etwas mit Hilfe des Mauszei- 
gers eingeben müssen. Dabei wäre es in vielen Fällen 
schön, wenn der Mauspfeil eine Form hätte, die dem 
Zweck der Eingabe verdeutlicht, er also etwa wie ein 
Zeichenstift oder Pinsel aussehen würde. Der Maus- 
zeiger darf, ähnlich wie ein Image (siehe Kapitel 3) 
beliebig hoch, aber nur 16 Pixel breit sein. Da der 
Zeiger ein Sprite ist, besteht er immer aus zwei Bit- 
planes, also bis zu vier Farben. Wichtig ist, daß die 
Farbe Null hier nicht dem Farbregister Null des 
Screens, sondern dem Screenfarbregister 32 enspricht 
(dies ist das Spritefarbregister Null). Ein wesent- 
licher Unterschied zur Definition von Imagedaten be- 
steht auch darin, daß die Daten der beiden Bitplanes 
nicht in Blöcken hintereinander, sondern abwechselnd 
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eine Zeile (als ein Wort= eine USHORT Zahl) der einen 
und der anderen, gespeichert werden. Ein zwei Zeilen 
hoher Zeiger, der in der Bitplane 0 nur Einsen (ge- 
setzte Punkte) und in der Biplane 1 nur Nullen (nicht 
gesetzte Punkte), also die Spritefarbe 1 hat, müßte 
demnach solche Bilddaten haben: 


Abb 6.1 Beispiel für Mauszeigerdaten 


INT data[] = {Oxffff, /* Bitplane 0 Zeile 1 */ 
0x0000, /* Bitplane 1 Zeile 1 */ 
Oxffff,  /* Bitplane 0 Zeile 2 */ 
0x0000 /* Bitplane 1 Zeile 2 */ 


r 


Wie auch bei einem Image, müssen sich diese Daten 
im CHIP-RAM befinden. Wie Sie den notwendigen CHIP- 
Speicher allozieren, und die Daten dorthin kopieren 
können, haben wir bereits in Kapitel 3 gezeigt. 


Wenn Sie die Daten von unserem Beispiel in einen 
CHIP-RAM Bereich kopiert haben, dessen Adresse in Da- 
ta steht, dann durch diesen S$SetPointer Aufruf: 


SetPointer(Window,Data,16,2,8,1); 


der neue Zeiger wird dem durch Window gegebenen Fen- 
ster zugewiesen (Window ist ein Zeiger auf die Win- 
dow-Struktur). Um die Zuweisung wieder rückgängig zu 
machen, also um den normalen Mauspfeil wieder zu be- 
kommen, können Sie ClearPointer mit dem Zeiger auf 
das Fenster so benutzen: 


ClearPointer(Window); 
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Wie die Erzeugung eines eigenen Mauszeigers in der 
Praxis aussieht, können Sie auch an Hand des nachfol- 
genden Beispielprogramms sehen. In diesem Programm 
wird auch eine weitere "lustige" Routine verwendet. 
Gemeint ist die Prozedur DisplayBeep, die Aufblitzen 
des gesamten Screens verursacht. Sie wird z.B. dazu 
verwendet die Aufmerksamkeit des Benutzer auf das 
Auftreten eines Fehlers, oder eines anderen wichtigen 
Ereignisses zu lenken. Falls Sie der Routine als 
len NULL übergeben, werden alle Screens auf- 
blitzen. 


Programm 6.2 Pointer.c 


#include "intuition/intuition.h" 
#include "exec/memory.h" 
struct Window *Window; 


USHORT Pointer[] = {0x0000,0x0000, 
0x600c,0x8001, /* 2011000000001102 */ 
0x0c30,0x8001, /* 2000110000110002 */ 
0x03c0,0x8001, /* 2000001111000002 */ 
0x03c0,0x8001, /* 2000001111000002 */ 
0x0c30,0x8001, /* 2000110000110002 */ 
0x600c,0x8001, /* 2011000000001102 */ 
0xc003,0xffff, /* 3322222222222233 */ 


main () 


SHORT i; 

USHORT code; 
ULONG Class; 
APTR PData; 
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OpenIntui(); 
* Fenster mit Close- und Depth Gadget und IDCMP- 
Port öffnen. */ 
Window = (struct Window *)MakeWindow(0,0,640,100, 
0,0, "Pointer",SMART REFRESH! 
WINDOWCLOSE,CLOSEWI NDOW, NULL); 
if(Window == NULL) /* Fehler beim Öffnen. */ 
exit(FALSE); 


/* CHIP-Memory für Pointerdaten allozieren */ 
PData = AllocHem(sizeof(Pointer), 

MEHF CHIP ! MEHF PUBLIC); 
if (PData == NULL) /* Fehler beim Allozieren */ 
exit(FALSE); 


/* und Daten dorthin kopieren. */ 
CopyMem(&Pointer[0],PData,sizeof(Pointer)); 


/* Und den Pointer dem Fenster zuweisen */ 
SetPointer(Window,PData,8,16,-8,-4); 
/* Screen blinken lassen */ 
Class = WaitEvent(Window,&code); 
/* Auf Close Gadget Warten. */ 


/* Speicher für Pointerdaten wieder freigeben und 
alles schließen. */ 


CloseWindow(Window); 
FreeMem(PData,sizeof(Pointer)); 


} 
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Wie jeder Amiga-Benutzer wahrscheinlich weiß, kann 
die Darstellung von komplexen Grafiken auch am Amiga 
sehr lange dauern. Es ist daher oft erwünscht, für 
das eigene Programm, das eine solche Grafik erzeugt, 
möglichst viel Rechenzeit zu bekommen. Dies bedeutet, 
daß man diese Zeit anderen parallel laufenden Pro- 
grammen "klaut". Wir wollen hier ein paar Routinen 
vorstellen, mit deren Hilfe es möglich ist, den An- 
teil der Rechenzeit, die Ihrem Programm zur Verfügung 
steht, zu vergrößern, bzw. im Extremfall alles andere 
(inklusive Maus und Tastaturabfrage !) abzuschalten, 
und somit die gesamte beträchtliche Rechenleistung 
des Amiga's im Dienste ihres Programms zu stellen. An 
dieser Stelle noch eine Warnung: Das Multitasking ist 
ein sehr empfindliches System, daß bei unüberlegten 
Manipulationer-sehr schnell] und oft auf sehr merkwür- 
dige Art und Weise abstürzt (so daß nicht mal ein Re- 
set hilft, und nur der Griff zum Powerschalter übrig- 
bleibt). 


Die mildeste Art den Rechenzeitanteil eines Pro- 
gramms der Prozedur SetTaskPri mit dem Zeiger auf 
die Task (Task) und einer Zahl zwischen -127 und 127, 
die die gewünschte Priorität angibt (Pri), so aufru- 
fen: 

SetTaskPri(Task ‚Pri); 


Der Zeiger auf den eigenen Task kann so mit der 
FindTask-Routine ermittelt werden: 


Task = FindTask(NULL); 
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Eine normale Task hat eine Priorität von -20, sehr 
wichtige Systemtasks von bis zu +20. Sollten Sie die 
Priorität ihres Programms viel größer als die +20 
machen, dann können Sie gleich alle anderen Tasks ab- 
schalten, weil sowieso nichts mehr läuft, sollten Sie 
sie dafür viel kleiner als die -20 machen, dann kön- 
nen Sie Ihr Programm genausogut abschalten, weil es 
sowieso keine Rechenzeit mehr abbekommt. 


Wenn Sie sich dafür entschieden haben, alle anderen 
Tasks abzuschalten, dann können Sie die parameterlose 
Forbid-Prozedur aufrufen. Mit Hilfe der ebenso para- 
meterlosen Permit- Routine können Sie diese wieder 
einschalten. Beachten Sie, daß es sehr unhöflich und 
darüberhinaus ein sehr schlechter Programierstil ist, 
über eine längere Zeit alle anderen Programme einfach 
auszuschalten! 


Alle hier besprochenen Prozeduren sind in exec/ 
tasks. zu finden. 
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Auf Grund der Tatsache, daß der Amiga keinen ge- 
trennten Textbildschirm besitzt, sondern den Text als 
Grafik darstellt, kann die Textausgabe extrem flexi- 
bel gestaltet werden. So kann der Text nicht nur Zei- 
len- bzw. Spaltenweise, sondern Pixelweise positio- 
niert werden. Auch die Anzahl der möglichen Schrift- 
arten ist praktisch unbegrenzt. Diese können sich 
nicht nur in der Form, sondern auch in der Höhe, 
Breite, sowie im Zeichenabstand unterscheiden. Wie es 
aber bei leistungsfähigen Systemen ist, ist es lei- 
der nicht ganz einfach, die angebotenen Möglichkeiten 
auszuschöpfen. Aus diesem Grund ist auch dieses Kapi- 
tel ein bißchen länger geraten. Wir versuchen hier, 
Ihnen an Hand einfacher Beispiele zu zeigen, was und 
wie es auf dem Amiga möglich ist. 


Als erstes wollen wir uns mit der Text-Routine be- 
fassen, die die Ausgabe einer beliebigen Zeichenkette 
in einem Rastport ermöglicht. Beim Aufruf wird ihr 
ein Zeiger auf den Rastport in dem der Text erschei- 
nen soll, die Adresse der Zeichenkette und die Anzahl 
der auszugebenen Zeichen übergeben. Sie können also 
z.B. den Text "Hallo" wie folgt in den durch Rast be- 
stimmten Rastport ausgeben: 


Text(Rast, "Hallo" ,‚5); 
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Um nur den Text "Hal", also die drei ersten Zeichen 
der Zeichenkette auszugeben, müßten Sie eine 3 statt 
der 5 übergeben. Vieleicht haben Sie sich gewundert, 
daß keine Bildschirmposition für den Text angegeben 
wurde. Dies liegt daran, daß die Text-Prozedur den 
Text an der aktuellen Position des Grafikcursors in 
dem betroffenen Rastport ausgibt. Um den Text zu po- 
sitionieren, müssen Sie also vorher die schon bekann- 
te Prozedur Move aufrufen. Die Ausgabe der in String 
gespeicherten Zeichenkette an der Bildschirmposition 
(x,y) sieht also so aus: 


Move(Rast,x,y); 
Text(Rast ‚&String,Len); 


Auch die Farben, Zeichenmodus und Schriftart (nicht 
Font) können durch den Aufruf entsprechender Prozedu- 
ren für die Textausgabe voreingestellt werden. Die 
Prozeduren SetAPen, SetBPen, und SetDrd, die zur 
Einstellung der ersten beiden Eigenschaften dienen, 
sind Ihnen ja schon bekannt (siehe Kapitel 4). In dem 
nächsten Beispielprogramm werden Sie die für die 
Textdarstellung interessanten Zeichenmodi finden. Da- 
bei handelt es sich um die Modi JAM1, JAM2, INVERSVID 
und deren Kombinationen. Die Schriftart kann mit Hil- 
fe von $SetSoftStyle bestimmt werden. Diese ermöglicht 
Ihnen die Wahl einer Schrift die kursiv, fett, unter- 
strichen oder alles zu gleich ist. 


Der Aufruf der Routine sieht wie folgt aus: 


OldStyle = SetSoftStyle(Rast,Styles ‚Enable); 
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Rast ist hier wie immer ein Zeiger auf einen Rast- 
port. In Enable müssen Sie die Flags (siehe Tabelle), 
die den gewünschten Schriftarten entsprechen, über- 
bergeben. Als Funktionsergebnis gibt Ihnen die Proze- 
dur die der alten Schriftart entsprechenden Flags zu- 
rück. Die FontStyle-Flags werden in ULONG-Variablen 
gespeichert. 


Abb 7.1 Die FontStyle-Flags 


I! Gesetzte Flags ! Resultierende Schriftart ! 
l 


I FSF_BOLD ! Fettschrift 

U FSFITALIC — : Kursivschrift 1 
! FSF_UNDERLINED ! Unterstricen ————! 
U FSNORML Normale Schrift! 


Durch Verknüpfen der Flags mit oder (!) können Sie 
die erwähnte Mischung verschiedener Schriftarten er- 
reichen (also z.B. fett und unterstrichen durch set- 
zen von Enable auf FSF_BOLD ! FSF_UNDERLINED). 


In der Variable Styles müssen die Flags aller für 
den aktuellen Font noch verfügbaren Schriftarten ste- 
hen, bzw. 255 wenn alle Schriftarten verfügbar sind. 
Diese können Sie durch einen Aufruf der AskSoftStyle- 
Prozedur wie folgt ermitteln: 


Fonts = AskSoftStyle(Rast); 
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Um eine eingestellte Schriftart zu verändern, müs- 
sen. Sie zuerst mit FS_NORMAL die "normale" Schrift 
einschalten und dann durch einen wiederholten Aufruf 
von SetSoftStyle die neue setzen. Dies gilt aller- 
dings nicht, wenn Sie zu der aktuellen Schriftart ei- 
ne andere hinzufügen wollen (also z.B.aus Fettschrift 
fette Kursivschrift machen wollen). 


In diesem Fall können SetSoftStyle direkt das ent- 
sprechende Flag übergeben. Zum besseren Verständnis 
des Umgangs mit den verschiedenen Schriftarten und 
Zeichenmodi folgt wieder ein Beispielprogramm. Es 
öffnet ein Fenster, ermittelt mit Hilfe von AskSoft- 
Style die verfügbaren Schriftarten und gibt Texte mit 
verschiedenen Zeichenmodi und Schriftarten in dem 
Fenster aus. 


Programm 7.1 Text 


#inc lude "intuition/intuition.h" 
#include "graphics/gfxmacros.h" 
#include "graphics/gfx.h" 


struct Window *Window; 
struct RastPort *Rast; 


main () 

SHORT i; 

USHORT code; 

ULONG Class, Styles, OldStyle; 
OpenIntui(); 


/* Fenster öffnen und die Adresse des Rastports 
lesen. */ 
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Window = (struct Window *)MakeWindow(120,40,400, 
130,0,0,"Text",SMART REFRESH! 
WIDOWCLOSE,CLOSEWINDOW, NULL); 

if(Window == NULL) j 

/* Fehler beim Offnen. */ 
exit(FALSE); 

Rast = Window->RPort; 


/* Verfügbare Schriftarten ermitteln */ 
Styles = AskSoftStyle(Rast); 


SetAPen(Rast,1); 


Move(Rast,2,15); 
Text(Rast, "Normal",6); 


SetBPen(Rast,2); 
SetDrMd(Rast,JAM2); 
Move(Rast,2,30):; 

Text(Rast, "JAM2-Modus",10); 


SetDrHMd(Rast,JAM2!INVERSVID); 
Move(Rast,2,45); 
Text(Rast, "JAM2/ COMPLEMENT-Modus" ,21); 


SetBPen(Rast,0); 


SetDrMd(Rast,JAM1): 

OldStyle = SetSoftStyle(Rast, Styles,FSF_ITALIC); 
Move(Rast,2,60); 

Text(Rast, "Kurs ivschrift" ‚13); 

OldStyle = SetSoftStyle(Rast, Styles,FSF BOLD); 
Move(Rast,2,75); 

Text(Rast, "Fette Kursivschrift",19); 


OldStyle = SetSoftStyle(Rast,Styles,FSF UNDERLINED); 
Hove(Rast, 2,90); 
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OldStyle = SetSoftStyle(Rast,Styles-OldStyle,255); 
OldStyle = SetSoftStyle(Rast,Styles,FSF BOLD); 
Move (Rast,2,105); u 
Text(Rast, "Nur Fettschrift",15); 


OldStyle = SetSoftStyle(Rast,Styles-0OldStyle,255); 
OldStyle = SetSoftStyle(Rast,Styles,FSF UNDERLINED); 
Move(Rast,2,120); z 

Text(Rast, "Nur unterstrichen",17); 


/* Auf Close Gadget warten und Fenster schließen. */ 
Class = WaitEvent(Window,&code); 
CloseWindow(Window); 


Der Begriff Fonts müßte eigentlich jedem Amiga Be- 
sitzer bekannt sein. Im Gegensatz zu älteren Compu- 
tern, die nur einen Zeichensatz besaßen, den sie bes- 
tenfalls in verschiedenen Variationen wie fett oder 
invers darstellen konnten, kann der Amiga beliebige 
frei definierbare Zeichensätze (Fonts) verwenden. Die 
von der normalen Workbench bekannte Schrift heißt 
Topaz und ist im im ROM des Computers gespeichert. 
Alle anderen Fonts müssen entweder durch ein Programm 
definiert, oder von Diskette geladen und dann dem 
System zur Verfügung gestellt werden. Es ist dabei 
durchaus möglich, gleichzeitig in verschiedenen Fen- 
stern verschiedene Fonts zu benutzen. Das System hat 
eine Liste der verfügbaren Fonts, aus der Sie Ihre 
Möglichkeiten schöpfen können. 


127 


Kapitel 7 Textdarstellung 


Wie dies im Detail bewerkstelligt werden muß, wer- 
den Sie in späteren Abschnitten erfahren. Hier wollen 
wir zunächst ein paar allgemeine Worte zu den Fonts 
sagen. Wie schon gesagt, ist ein Font ein vollständi- 
ger Zeichensatz. Dies heißt, daß er aus 1 bis 255 be- 
liebig definierten Zeichen bestehen kann. Sie können 
sich also einen Font erzeugen, der nur aus Grafikzei- 
chen oder aber auch aus russischen oder griechischen 
Buchstaben besteht. Zu der Fontdefinition gehört die 
Angabe der Zeichenanzahl, deren Höhe, Breite, verfüg- 
baren Schriftarten sowie einiger anderer besonderer 
Eigenschaften. Das Aussehen der Zeichen wird ähnlich 
wie ein Image Pixelweise durch Setzen einzelner Bits 
bestimmt. 


Die auf Diskette gespeicherten Fonts befinden sich 
in der fonts-Directory der Systemdiskette. Dort ge- 
hört zu jedem Font ein eigenes Verzeichnis, in dem 
mehrere, sich in der Größe unterscheidende Versionen 
des Fonts stehen können. Falls Sie ihre eigenen Fonts 
aus einer anderen Directory verwenden wollen, müssen 
Sie dies dem System in der startup-sequence oder spä- 
ter im CLI-Fenster wie folgt mitteilen: 


assign FONTS: MyFonts 


Statt MyFonts müssen Sie hier natürlich den Namen 
ihres Verzeichnisses angeben. Beachten Sie dabei, daß 
ab dann alle fonts in Ihrem Verzeichnis gesucht wer- 
den. 
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Hier können Sie nun definitiv erkennen und sehen, 
ob ein bestimmter Font geladen werden kann. Sie 
können alle Fonts, die für das System verfügbar sind, 
mit der AvailFonts-Prozedur der Diskfont-Library auf- 
gelistet werden. So einfach sich dies anhört, es ist 
leider mit einigen Aufwand verbunden. Beim Aufruf 
erzeugt AvailFonts eine Liste von AvailFonts-Struktu- 
ren, die von einer AvailFontsHeader-Struktur einge- 
leitet wird. Die letztere beinhaltet nur die Anzahl 
der folgenden AvailFonts-Datensätzen und sieht so 
aus. 


Abb 7.2 Die AvaiFontsHeader-Struktur 


struct AvailFontsHeader 


UWORD afh_NumEntries; 
/* struct AvailFonts afh AF [] */ 


7 


Wie sie der Abbildung entnehmen können, liegen die 
AvailFonts-Strukturen, die die eigentliche Informa- 
tion über die Fonts enthalten, direkt nach AvailFonts 
Header. Jede dieser Strukturen steht für einen Ver- 
fügbaren Font und sieht folgendermaßen aus: 
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Abb 7.3 Die AvailFonts-Struktur 
struct AvailFonts 


UWORD af Type; 
struct TextAttr af Attr; 


7 


In af Type wird der Fonttyp durch eine der folgen- 
den Flags angegeben: 


I Flag Bedeutung | 
I AFF MEMORY 1! Font befindet sich im Speicher. |! 
! AFF_DISK ! Font befindet sich auf Diskette. ! 


Die Daten des Fonts, also sein Name, seine Größe 
etc. sind in dem Feld af Attr in einer weiteren Da- 
tenstruktur zu finden. Es handelt sich dabei um die 
TextAttr-Struktur, die zu den wichtigsten Strukturen 
der Grafik-Library gehört. 

Sie ist wie folgt aufgebaut: 


Abb 7.4 Die TextAttr-Struktur 
struct TextAttr 

APTR ta_Name; 

UWORD ta_YSize; 

UBYTE ta_Style; 

UBYTE ta_Flags; 


7 
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Den Zeiger auf den Namen des Fonts finden Sie in 
ta Name, die Höhe der Zeichen in ta YSize, und die 
Flags der verfügbaren Schriftarten (siehe Abschnitt 
1) in ta Style. Das letze Feld, ta Flags enthält ein 
oder meherere FontFlags, die folgende Bedeutung ha- 
ben. 


Abb 7.5 Die Font-Flags 


! Flag ! Bedeutung 
! FPF__ROMFONT ! Font befindet sich im ROM | 
I FPF_DISKFONT ! Font ist auf Diskette 
! FPF_REVPATH ! Font wird von links nach | 
! ! rechts geschrieben ! 
! FPF_TALLDOT ! Font für non-interlace hires ! 
! FPF_WIDEOUT ! Font für lowres/interlace | 
I FPF_PROPORTIONAL ! Font mit Proportionalschrift ! 
I FPF_DESIGNED ! Fontbreite nicht einheitlich ! 
! FPF_REMOVED ! Font wurde aus der Fontliste ! 
| ! entfernt 


Die Zusammenhänge zwischen den Strukturen verdeut- 
licht das Bild 7.1: 


Fo nic on tents. “ T i 


FontContents nm ee 


Bild 7.1 - Die Speicherung der Fontliste 
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Nach dieser relativ langweiligen Aufzählung der 
Datenstrukturen, können wir dazu übergehen, eine 
Fontliste zu erstellen. Als erstes muß für die Liste 
der AvailFonts-Strukturen genug Speicher alloziert 
werden. Dazu können Sie, in der aus den vorherigen 
Kapiteln bekannten Weise, die AllocMem-Routine von 
Exec verwenden. Der benötigte Speicher braucht nicht 
im CHIP-RAM zu liegen und sollte ca. 1000 Bytes groß 
sein. Sowohl den Zeiger auf den allozierten Speicher, 
als auch seine Länge, müssen Sie dann an AvailFonts 
übergeben. Als dritten Parameter müssen Sie die ange- 
angesiedelten Fonts, nur die Diskfonts oder beides 
auflisten wollen. Sollte es sich heraustellen, daß 
der von Ihnen allozierte Speicher nicht ausreicht, so 
bekommen sie als Funktionsergebnis von Typ long die 
Anzahl der fehlenden Bytes zurück. Sonst gibt die 
Prozedur 0 zurück. Das Erstellen einer Fontliste 
sieht also so aus: 


Buffer = (strugt AvailFontsHeader *)AllocMem 
(1000. ,MEMF PUBLIC); 
e = AvailFonts(Buffer,1000L,Type); 


Um nur die im Speicher befindlichen Fonts aufzulis- 
ten geben Sie für Type eine 2 an. Die Diskfonts be- 
kommen Sie durch die Angabe einer 1, beides durch ei- 
ne 3 aufgelistet. 


Wie Sie die Daten aus der Fontliste herauslesen, 
ist der vorangegangenen Erklärung des Aufbaus dieser 
Liste leicht zu entnehmen. Da Sie in Buffer die 
Adresse des Headers ihrer Liste also der AvailFonts 
Header-Struktur haben, können Sie die Anzahl der ge- 
lesenen Fonts leicht wie folgt ermitteln: 
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Number = Buffer>af_NumEntries; 


Als nächstes müssen wir uns einen Zeiger auf die 
erste AvailFonts-Struktur beschaffen. Diese befindet 
sich aber an der Adresse von AyailFontsHeader plus 
der Länge des Feldes af NumEntries. 


Ihre Adresse kann also so ermittelt werden: 
FirstFont = (struct AvailFonts *)&Buffer[1]; 


Nun können Sie in einer for-Schleife, in der Sie 
FirstFont inkrementieren und die AvailFontsHeader-af 
NumEntries-mal durchlaufen wird, die Daten aller 
Fonts auslesen. 


Wie dies im einzelnen gemacht wird, können Sie dem 
nachfolgenden Programm entnehmen. Beachten Sie, daß 
die Diskfont-Library geöffnet werden muß. 


#include "Tibraries/diskfont.h" 
#include "graphics/gfx.h" 
#include "Display.h" 

#include "stdio.h" 

#include "exec/memory.h" 


struct AvailFonts *AFonts; 
struct AvailFontsHeader *AFHeader; 


ULONG DosBase; 
ULONG DiskfontBase; 
main () 


LONG e; 
SHORT i; 
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/* Dos- und Diskfontlibrary öffnen. */ 


OpenGfx(); 

if((DiskfontBase = OpenLibrary("diskfont. library" 
‚0)) == NULL) 

exit(FALSE); 


if((DosBase = OpenLibrary("dos. Tibrary",0O)) == 
NULL) 


/* Speicher für die AvialFontsHeader-Struktur 
allozieren */ 
AFHeader = (struct AvailFontsHeader *) AllocMem 
(5000,MEHF CLEAR); 
if (AFHeader == NULL) u 
exit(FALSE): 
/* Fehler beim Allozieren */ 


/* Liste der verfügbaren Memory- und Diskfonts 
einlesen. */ 
e = AvailFonts(AFHeader,5000L,3); 


/* Die eingelesenen Fonts auflisten. */ 
AFonts = (struct AvailFonts *)&AFHeader[1]; 
/* Header über lesen. */ 


for (i = 0; i < (AFHeader->afh_NumEntries); i++) 
/* Alle Einträge listen. */ 


/* Den Namen und die Größe des Fonts ausgeben */ 
printf("Font Nr %-2d %-24s Größe %d \n",i,AFonts 
->af Attr.ta_Name,Afonts>af Attr.ta_YSize); 


AFonts++; /* Nächster Font. */ 
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Hat man erst herausgefunden, welche Fonts einem ei- 
gentlich zur Verfügung stehen, wird man wohl auch zu- 
mindestens einen laden wollen. Dazu benutzt man die 
schon aus dem vorherigen Abschnitt bekannte TextAttr- 
Struktur. Dort trägt man den Namen, die Größe und die 
Art des Fonts (Disk oder Speicher) ein. 


Die Adresse der so initialisierten Struktur über- 
gibt man dann der OpenFont bzw. der OpenDiskFont-Pro- 
zedur. Welche der beiden man nun benutzt hängt davon 
ab, ob Sie auch nicht vergessen, am Anfang des Pro- 
gramms die Diskfont-Library zu öffnen. Ganz egal wel- 
che der Prozeduren Sie verwendet haben, das Ergebnis 
bleibt gleich. Falls der gewünschte Font geladen wer- 
den konnte, liefern beide einen Zeiger auf die Text- 
Font-Struktur des neuen Fonts (anderenfalls bekommen 
Sie NULL zurück). Diese Struktur, die Sie im nächsten 
Abschnitt genauer kennenlernen werden, liefert eine 
genaue Beschreibung des Fonts. 


Sie beinhaltet alles, was die Systemsoftware 
braucht, um mit diesem Font zu arbeiten, wie z.B. den 
Zeiger auf die Bilddaten der einzelnen Zeichen. Nach- 
dem der Font erfolgreich geöffnet wurde, haben Sie 
zwei Möglichkeiten mit ihm zu arbeiten. Die erste be- 
steht darin, ihm mit Hilfe der SetFont-Prozedur an 
einen Rastport (z.B. den eines Fensters oder eines 
Screens) zuzuweisen. Das Öffnen eines Fonts und die 
Zuweisung an einen Rastport Rast kann also aussehen, 
wie folgt: 


TextFont = (struct TextFont *)OpenDiskFont(TextAttr); 
if(TextFont != NULL) SetFont(Rast,TextFont); 
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Wir haben hier vorausgesetzt, daß Textättr auf ei- 
ne initialisierte TextAttr-Struktur zeigt. Für alle 
Texte, die dann in diesem Rastport mit Text ausgege- 
ben werden, wird nun der neue Font verwendet. 


Ein Beispiel für das Öffnen eines Diskfonts und de- 
ren Zuweisung an einen Rastport finden sie in dem an 
diesem Abschnitt folgenden Programm. Es gibt einen 
Text mit dem Standardfont des Fensters aus, Öffnet 
dann nacheinander zwei neue Fonts und benutzt diese 
ebenfalls zur Textausgabe. Die von dem Programm ver- 
wendetet Fonts: Emerald 17 und Emerald 20. 


Wenn Sie ihren Amiga von einer Diskette gebootet 
haben, auf der diese Fonts nicht vorhanden sind, dann 
müssen Sie vor dem Programmstart die Workbench ins 
Laufwerk schieben und mit assign eine neue FONTS: de- 
vice setzen (siehe Abschnitt 2). 


Programm 7.3 Drskfont 


#include "Display.h" 

#include "intuition/intuition.h" 
#include "graphics/gfx.h" 
#include "Tibraries/Diskfont.h" 


struct Window *Window; 
struct RastPort *Rast; 
struct Font *DFont; 


struct TextFont *TFont; 


struct TextAttr ITFont = {"Emerald.Font", 


7 


0, 
FPF_DISKFONT 


I 
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ULONG DiskfontBase; 


main () 


SHORT i; 

USHORT code; 

ULONG Class, Styles, OldStyle; 
OpenIntui(); 

OpenGfx(); 


/* Diskfontlibrary öffnen */ 
DiskfontBase = OpenLibrary("diskfont. Tibrary",0); 
if(DiskfontBase == NULL) ö 
/* Fehler beim Öffnen */ 
exit(FALSE); 


/* Fenster öffnen un die Adresse des Rastports 
lesen. */ 
Window = (struct Window *)MakeWindow(120,10,400, 
100,0,0,"DiskFonts", 
SMART REFRESH !WINDOWCLOSE [WINDOWDEPTH, 
u CLOSEWINDOW, NULL); 


if(Window == NULL) /* Fehler beim Öffnen. */ 
exit(FALSE); 
Rast = Window->RPort; 


Move(Rast,120,30); 
/* Text im Standardfont ausgeben */ 
Text(Rast, "Standardfont",12); 


TFont = OpenDiskFont(&ITFont); 
/* Emerald 17 öffnen */ 


if(TFont == OL) 
/* Fehler ?_ */ 


exit(FALSE); 
SetFont(Rast,TFont); 
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/* Nein -> dem Rastport zuweisen #7 


Move(Rast,120,50); 
/* und Text mit Emerald 17 printen. */ 
Text(Rast, "Emerald 17\n",11); 


ITFont.ta YSize = 20; /* Emerald 20 öffnen */ 
TFont = OpenDiskFont(&ITFont); 


if(TFont == OL) /* Fehler ?_ */ 
exit(FALSE); 
SetFont(Rast,TFont); 
/* Nein -> dem Rastport zuweisen */ 
Move(Rast,120,75); 


Text(Rast, "Emerald 20\n",11); 
/* und Text mit Emerald 20 printen. */ 


/* Auf Close Gadget warten und Fenster schließen. */ 
CloseWindow(Window); 


[_JIDıskFonts 


Standardfont 


Emerald 17 


emerald 20 


Bild 7.2 - Die Ausgabe des Programms DiskFont 


Als nächstes sollte noch die zweite Möglichkeit, 
einen geöffneten Font zu nutzen, erläutert werden. 
Dazu wird der Font mit Addfont an die Fontliste des 
Systems angehängt und kann von anderen Programmen be- 
nutzt werden. Ist TextFont ein Zeiger auf die ent- 
sprechende Textfont-Struktur, dann sieht dies folgen- 
dermaßen aus: 
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AddFont(TextFont); 


Für ihr eigenes Programm ist das Einfügen des Fonts 
in die Systemliste immer dann wichtig, wenn Sie mit 
Prozeduren oder Datenstrukturen arbeiten, den eine 
TextAttr-Struktur statt einer TextFont-Struktur über- 
geben werden muß. Dies ist z.B. dann der Fall, wenn 
Sie beim Offnen eines Screens oder Fenster einen ei- 
genen Font als Standardfont haben wollen. 


Sowohl die NewWindow als auch die NewScreen-Struk- 
tur beinhalten ein Feld, in dem Sie die Adresse einer 
TextAttr-Struktur angeben können. Sie muß dann mit 
den gleichen Werten initialisiert sein, die Sie zum 
Öffnen des Fonts verwendet haben, damit Sie auch die 
gleiche Struktur verwenden. Auf ähnliche Weise kann 
der Font bei der Textausgabe mit IntuiText bestimmt 
werden, die wir noch im letzten Abschnitt dieses Ka- 
pitels besprechen. 


Wem das Laden fertiger Fonts nicht genug ist, für 
den wollen wir jetzt beschreiben wie man sich einen 
eigenen definieren und in das System einfügen kann. 


Die Grundlage dafür ist die bereits vorher ange- 
sprochene TextFont-Struktur. Diese sieht folgenderma- 
Ben aus: 


Abb. 7.6 Die TextFont-Struktur 
struct TextFont 


struct Message tf Message; 
UWORD tf YSize; 

UBYTE tf Style; 

UBYTE tf F lags; 

UWORD tf XSize; 

UWORD tf_Baseline; 
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UWORD tf BoldSmear; 
UWORD tf Accessors; 
UBYTE tf LoChar; 
UBYTE tf HiChar; 
APTR tf CharData; 
UWORD tf Modulo; 
APTR tf Charloc; 
APTR tf CharSpace; 
APTR tf_CharKern; 


4 


In dem Feld tf Message befindet sich eine gewöhnli- 
che Message-Struktur von Exec, die notwendig ist, da- 
mit der Font in die Fontliste eingefügt werden kann. 
Deswegen muß dieses Feld wie folgt initialisiert wer- 
den: 


TextFont.tf Message.mn_Node. In_Type = NT _FONT; 
TextFont.tf Message.mn Node. In Name = Name; 
TextFont.tf Message.mn Length = Len; 


TextFont muß hier natürlich eine Variable vom Typ 
TextFont sein. Name ist ein Zeiger auf den Namen des 
Fonts und Len der Speicherbedarf aller zu diesem Font 
gehörenden Daten. Wie dieser berechnet wird, werden 
wir später erläutern. Die nächsten vier Felder tf 
YSize, tf Style, tf Flags und tf XSize bestimmen die 
Höhe, die verfügbaren Schriftarten, die Art und die 
Breite des Fonts. Die Flags (tf Flags) und die 
Schriftarten entsprechen den von TextAttr bzw. Set 
SoftStyle bekannten (siehe Abb 7.5 bzw 7.1). 


In tf Baseline wird der Abstand der untersten Zei- 
le des Textes von oben festgelegt. Wenn Sie z.B. un- 
ten Platz zum Unterstreichen lassen wollen, dann mü- 
ssen Sie hier einen Wert, der kleiner als die Font- 
höhe ist, angeben. Durch Angabe einer 1 in tf Bold 
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Smear können Sie die Erzeugung der Fettschrift durch 
"Verschmieren" zulassen. Das nächste Feld: tf Acces- 
sors ist nur für das System wichtig und sollte mit 0 
initialisiert werden. Der Rest der TextFont-Struktur 
bezieht sich direkt auf die Zeichendaten. Zunächst 
werden durch tf LoChar und tf HiChar die ASCII-Werte 
des ersten und des letzten Zeichens des Fonts angege- 
ben. Die Werte können zwischen O0 und 255 liegen, wo- 
bei tf LoChar natürlich kleiner als tf Hichar sein 
muß. Die Adresse des Speicherbereiches, in dem die 
Bildaten der Zeichen stehen, befindet sich in tf 
CharData. Wie es bei Bilddaten üblich ist, wird jeder 
Punkt durch ein Bit und jede Bildzeile durch eine 
Bitreihe repräsentiert, so daß die Zeichendaten in 
einem Array vom Typ UWORD definiert werden können. 
Die Zeichen werden "nebeneinander" gespeichert, d.h 
auf die erste Zeile des ersten Zeichens folgt die er- 
ste des zweiten, darauf die erste des dritten etc. 
Danach kommen auf die gleiche Art angeordnet die 
zweiten, dritten, vierten usw. Zeilen. Wie Sie se- 
hen, ist die Anzahl der Bytes, die übersprungen wer- 
den müssen, um von einer Zeile eines Zeichens zur 
nächsten zu kommen, von Zeichensatz zu Zeichensatz 
verschieden (Es liegen ja die Zeilendaten der anderen 
Zeichen dazwischen !). Aus diesem Grunde muß die An- 
zahl der zwischen zwei Zeilen eines Zeichens liegen- 
den Bytes in tf Modulo angegeben werden. Bei einem 
Font, der 10 Zeichen enthält, die alle 16 Punkte 
breit sind (also genau zwei Bytes belegen), wärend es 
logischerweise 20 - da dieser Wert für alle Zeilen 
gleich bleibt, müssen alle Zeilen eines Zeichens auch 
gleich breit sein. 


Das soll aber natürlich nicht heißen, daß alle Zei- 
chen quadratich sein müssen. Wo kein Punkt erschei- 
nen soll, kann ja in den Daten eine Null gesetzt wer- 
den. Da die Zeichenbreite aber nicht auf ganzzahlige 
Vielfache von 8 oder 16 beschränkt ist, wird in der 
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Regel eine Zeile eines Zeichens nicht durch eine be- 
stimmte Anzahl von Bytes oder Words dargestellt. Es 
ist auch nicht unbedingt notwendig, daß alle Zeichen 
die gleiche Breite haben. So können in zwei Bytes ei- 
ner Zeile eines 10 und eines 6 Bits breiten Zeichens 
gespeichert werden. Damit der Amiga in diesem Durch- 
einander überhaupt zurecht kommt, müssen in einem zu- 
sätzlichen Speicherbereich nacheinander der Abstand 
des Anfangs der ersten Zeile von Anfang der Bildaten 
und die Breite der Daten einer Zeile in Bits für je- 
des Zeichen angegeben werden. Ein Zeiger auf diesen 
Speicherbereich ist in ?tf_ CharLoc einzutragen. 


Die Breite des Zeichens wird für jedes Zeichen in 
einem weiteren Array, dessen Adresse in tf CharSpace 
steht, übergeben. Der aufmerksame Leser wird an die- 
ser Stelle wahrscheinlich verwundert sein, denn nun 
haben wir tf CharLoc und tf CharSpace)! Der Grund da- 
für ist darin zu suchen, daß es sich jedesmal um eine 
"andere" Breite handelt. In tf XSize wurde angegeben, 
wie viel Platz jedes Zeichen unabhängig von seiner 
Breite bei einem nicht proportionalen Zeichensatz auf 
dem Bildschirm horizontal einimmt. Dieser Wert ist 
für alle Zeichen des Zeichensatzes gleich und wird 
deswegen global in der TextFont-Struktur festgelegt. 
Die Breite, die in tf CharSpace bestimmt wird, kann 
von Zeichen zu Zeichen verschieden sein. Diese Brei- 
te wird immer, also auch bei proportionalen Fonts, 
beibehalten. Sie gibt Ihnen die Möglichkeit jedem 
Zeichen so viel Platz zuzuordnen, wie Sie es für eine 
gute Lesbarkeit, oder schönes Aussehen des Zeichen- 
satzes für angebracht halten. Die in tf CharLoc ste- 
hende Breite, gibt schließlich die Breite der Daten 
jedes Zeichens an. Dies ist auch die maximale Anzahl 
der horizontal gesetzen Punkte eines Zeichens. Die 
Differenz aus dieser und der vorigen Breite wird als 
freier Raum rechts vom Zeichen dargestellt. Damit Sie 
den Rand auch Links lassen oder das Zeichen zentrie- 
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ren können, gibt es noch in TextFont das Feld tf Char 
Kern. Dort steht ein Zeiger auf ein Array, das für 
jedes Zeichen den Abstand des ersten Datenbits einer 
Zeile vom Anfang der Zeile, also die Verschiebung der 
Daten nach rechts, sprich den linken Rand angibt. 


Alles klar? Nicht? Also noch ein Beispiel: bei ei- 
nem Zeichen mit einer Datenbreite von 8 Bits, und ei- 
ner Zeichenbreite von 10 Bits müßte hier eine Eins 
stehen, damit es links und rechts den gleichen Rand 
hat. 


Für die, die immer noch verwirrt sind, haben wir 
ein (hoffentlich) einfaches Beispiel: Dazu stellen Sie 
sich bitte zunächst einen Zeichensatz vor, der nur aus 
zwei Zeichen besteht, die je 3 Zeilen hoch sind. Die 


Zeichen sollen so aussehen: 


Zeichen 1 Zeichen 2 
111111111 101 
100000001 010 
111111111 101 


Die Datenbreite des ersten Zeichens ist 9, die des 
zweiten 3, die Gesamtbreite einer Zeile also 12 Bits. 
Für die Zeilendaten brauchen wir also je ein Word (2 
Bytes). Die Daten sehen so aus: 


ULONG CharData [] = {Oxffdo, 
0x80a0, 
Oxffdo 


Fi 


Der tf Modulo-Wert in dem zugehörenden TextFont- 
Datensatz mu' hier den Wert 2 haben. In tf Charloc 
muß die Adresse des folgenden Arrays stehen: 
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ULONG CharLoc [] = {0x0000,0x0009, 
0x0009,0x0003 


7 


Falls Sie noch wollen, daß beim ersten Zeichen so- 
wohl links als auch rechts zwei Pixel freigelassen 
werden, während das zweite Zeichen um 3 Pixel nach 
links verschoben wird, dann müssen tf ChaSpace und 
tf_Charkern wie folgt aussehen: . 


UWORD CharSpace [] = {13,6} 


Mit den so erzeugten Rändern sehen die beiden Zei- 
chen nun so aus. 


Zeichen 1 Zeichen 2 
0011111111100 10100 
0010000000100 01000 
0011111111100 10100 


Wenn Sie die Fontdaten Ihres Zeichensatzes wie be- 
schrieben erzeugt und die TextFont-Struktur initiali- 
sert haben, können Sie den Font auch sofort benutzen. 
Da Sie die Adresse der TextFont-Struktur schon ken- 
nen (Sie haben sie ja immerhin erzeugt!), brauchen 
Sie weder die OpenFont-noch die OpenDiskFont- Routine 
aufzurufen. ES reicht wenn Sie den Zeiger auf Ihre 
TextFont-Struktur an SetFont oder AddFont übergeben 
(siehe Abschnitt 3). 


Wie die Konstruktion eines neuen Zeichensatzes im 
einzelnen verläuft, können Sie sich nochmals an Hand 
des nachfolgenden Programms klarmachen. Es definiert 
sich fünf Grafikzeichen, deren ASCII-Werte zwischen 
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65 und 70 liegen. Diese Zeichen werden also immer 
dann ausgegeben, wenn bei dem normalen Font die Buch- 
staben "A" bis "E" erscheinen würden. Wichtig ist, 
daß alle anderen Zeichen nicht etwa im alten Font er- 
scheinen, sondern überhaupt nicht verfügbar sind. 


Bei dem Versuch Sie auszugeben wird gar nichts, 
oder eventuell nur Müll erscheinen. 


Programm 7.4 NewFont 


#include "graphics/gfx.h" 
#include "graphics/text.h" 
#include "Tibraries/Diskfont.h" 
#include "exec/memory.h" 


struct Window *Window; 
struct RastPort *Rast; 
struct TextFont *NewFont; 


/* Definition des neuen Fonts für folgender Grafik- 
zeichen 2]: 
/* mit den ASCII-Codes von 65 bis 70: */ 


/* 1111111111111111 0000001111000000 1111111111111111 
00000000 11001100 */ 
/* 1100000000000011 0000001111000000 0000000000000000 
00000000 11001100 */ 
/* 1100000000000011 0000001111000000 1111111111111111 
00000000 11001100 */ 
/* 1100000000000011 0000001111000000 0000000000000000 
00000000 11001100 */ 
/* 1100000000000011 0000001111000000 1111111111111111 
00000000 11001100 */ 
/* 1100000000000011 0000001111000000 0000000000000000 
00000000 11001100 */ 
/* 1100000000000011 1111111111111111 1111111111111111 


145 


Kapitel 7 Textdarstellung 


00000000 11001100 */ 
/* 1111111111111111 1111111111111111 0000000000000000 
00000000 11001100 */ 


UWORD FontData [] = {Oxffff,0x03c0,0xffff,0x00cc, 
0xc003,0x03c0,0x0000,0x00cc, 
0xc003,0x03c0,0xffff,0x00cc, 
0xc003,0x03c0,0x0000,0x00cc, 
0xc003,0x03c0,0xffff,0x00cc, 
0xc003,0x03c0,0x0000,0x00cc, 
0xc003,0xffff,Oxffff,0x00cc, 

Oxffff,Oxffff,0x0000,0x00cc, 


}i 


/* Die Adressen der Zeichen im Zeichensatz */ 
UWORD Loc [] = {0x0000,0x0010,0x0010,0x0010,0x0020, 
0x0010,0x0030,0x0008,0x0038,0x0008 


}i 


/* Zeichenbreite */ 
UWORD Kern[] ={0,0,0,0,0}; 


ULONG DiskfontBase; 
main () 

SHORT i; 

USHORT code; 

ULONG Class, Len; 


OpenIntui(); 
OpenGfx(); 


/* Diskfontlibrary öffnen */ 

DiskfontBase = OpenLibrary("diskfont.Tibrary",0); 
if(DiskfontBase == NULL ) /* Fehler beim Öffnen */ 
exit(FALSE); 


146 


Kapitel 7 Textdarstellung 


/* Fenster öffnen un die Adresse des Rastports 
lesen. */ 
Window = (struct Window *)HakeWindow(220,100,200, 
100,0,0,"NewFont", 
SMART REFRESH; WINDOWCLOSE !"WINDOWDEPTH, 
CLOSEWINDOW, NULL ); 


if(Window == NULL) /* Fehler beim Öffnen. */ 
exit(FALSE); 


Rast = Window->RPort; 


/* Speicherplatz für die TextFont-Struktur des 
neuen Fonts allozieren */ 
NewFont = AllocHem(sizeof(struct TextFont), 
MEMF PUBLIC !HMEMF CLEAR); 
if(NewFont == NULL) z u 
exit(FALSE); 


/* Länge der Fontdaten berechnen */ 

Len = sizeof(struct TextFont) + sizeof(FontData) + 
sizeof(Loc)+ sizeof(Width) + 
sizeof(Kern); 


/* Und diese initialisieren */ 
NewFont->tf_Message.mn Node. In_ Type 


NT FONT; 


/* Message Port */ 
NewFont->tf Message.mn Node. In_Name 
NewFont->tf Message.mn Length 


"Demofont"; 
Len; 


/* Eigentlicher TextFont */ 
NewFont->tf_YSize = 8; 


/* Höhe des Fonts */ 

NewFont->tf Style = NULL; 
NewFont->tf Flags = FPF DESIGNED; 
NewFont->tf XSize = 16; 
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/* Breite der Zeichen */ 
NewFont->tf Baseline = 0; 
NewFont->tf BoldSmar =]; 
NewFont->tf Accessors = NULL; 
NewFont->tf LoChar = 65; 
NewFont->tf HiChar = 70; 
NewFont->tf CharData = &FontData[O0]; 
NewFont->tf Modulo = 8; 
NewFont->tf CharlLoc = &Loc[0]; 
NewFont->tf CharSpace = &Width[0]: 
NewFont->tf_CharKern = &Kern[0]; 


AddFont(NewFont); 
/* Font in die Systemliste einfügen */ 


Move(Rast,50,20); 
/* Text im Standardfont ausgeben */ 


Text(Rast, "Standardfont:",13); 
Move(Rast,60,40); 

Text(Rast, "ADBDCDE ni: 
Hove(Rast. 50,60); 

Text(Rast, "Neuer Font:",11); 


SetFont(Rast,NewFont); 
/* Neuen Font dem Rastport zuweisen */ 


Move (Rast,50,75); 
Yin; und den Text mit diesen printen. */ 
Text(Rast, "ADBDCDE",7): 


/* Auf Close Gadget warten und Fenster schließen. */ 


Class = WaitEvent(Window,&code); 
RemFont(NewFont); 
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Oeutont 010 
Standard£ont: 


ADBDCDE 


Neuer Font: 


OL=1 


Bild 7.3 - Die Ausgabe des Programms NewFont 


Wer einen eigenen Font erzeugen und auf Diskette 
speichern will, wird gewöhnlich zu einem der vielen 
Hilfsprogramme, mit deren Hilfe man die einzelnen 
Zeichen zeichnerisch erstellen kann, greifen. 


Trotzdem mag es Sie vieleicht interessieren, wie 
dies genau funktioniert. Wenn ein Diskfont mit Open 
DiskFont geladen wird, dann wird, wie Sie sich viel- 
leicht erinnern, ein TextFont-Datensatz erzeugt, wie 
er im vorigen Abschnitt beschrieben wurde. Es ist da- 
her durchaus nicht verwunderlich, daß die Fontdaten 
auf Diskette ebenfalls in einer sehr ähnlichen Form 
vorliegen. Der wesentliche Unterschied besteht indem, 
was sich um die eigentlichen Zeichendaten herum be- 
findet. Wenn Sie einen Blick in die fonts-Directory 
der Workbenchdiskette werfen, dann werden Sie sehen, 
daß sich dort zu jedem Font zunächst mal ein gleich- 
namiges Verzeichnis und ein File befindet, deren Name 
aus dem Namen des Fonts und einem ".font"besteht. Für 
den aus Abschnitt 4 bekannten "Emerald"-Font sieht 
dies aus, wie folgt: 
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emerald (Dir) 
emerald.font 


In der ermerald Directory stehen dann nur folgende 
Files: 
17 
20 


Was steckt dahinter? In dem ".font"-File befindet 
sich eine FontContentsHeader-Struktur, der eine oder 
mehrere FontContents-Strukturen folgen (ähnlich wie 
es auch bei AvailFontsHeader und AvailFonts der Fall 
war). FontContentsHeader gibt an, wieviele Fonts mit 
diesem Namen verfügbar sind und sieht so aus: 


Abb 7.7 Die FontContentsHeader-Struktur 


{ 

UWORD fch_FilelID; 

UWORD fch NumEntries; 

/* struct FontContents [] */ 


Das Feld fch FileID kennzeichnet diese Sorte von 
Dateien und sollte immer 0f00 sein. In fch NumEntries 
steht dann die Anzahl der nachfolgenden FileContents- 
Strukturen. Jede dieser Strukturen ist stellvertre- 
tend für einen "Unterfont" (z.B. emerald 17 oder eme- 
rald 20) und ist wie folgt gebaut: 


Abb 7.8 Die FontContents-Struktur 
struct FontContents 

char fc FileName[MAXFONTPATH]; 
UWORD fc YSize; 


UBYTE fc_Style; 
UBYTE fc_Flags; 
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Die fc_YSize, fc_Style und fc_Flags Felder be- 
schreiben die Eigenschaften des Fonts und haben die 
gleiche Bedeutung wie die gleichnamigen Felder der 
TextAttr- und TextFont-Strukturen. fc FileName gibt 
den Pfad, unter dem der Font in der FONTS: Directory 
zu finden ist. In unserem Beispiel mit dem emerald- 
Font muß hier ein Zeiger auf die Zeichenkette" eme- 
rald/17" oder "emerald/20" (Je nachdem, zu welchen 
der beiden Fonts diese Struktur gehört) stehen. 


Die Datei, die den eigentlichen Zeichensatz bein- 
haltet, besteht dann aus folgenden vier Teilen: 


(1) Eine einleitende DiskFontHeader-Struktur. 
(2) Die TextFont-Struktur des Zeichensatzes. 
(3) Die Bilddaten der Zeichen. 


(4) Die CharLoc, CharSpace und Charkern Daten 
(siehe TextFont-Struktur). 


Die Funktion der DiskFontHeader-Struktur liegt da- 
rin, das Laden des Fonts mit dem LoadSeg-Befehl zu 
ermöglichen. Dadurch kann ein Zeichensatzfile wie ein 
gelinktes Programm behandelt, und im Speicher instal- 
liert werden. Hier die DiskFontHeader-Struktur im 
Detail: 


Abb 7.9 Die DiskFontHeader-Struktur 
struct DiskFontHeader 


/* ULONG dfh_NextSegment */ 
/* ULONG dfh ReturnCode */ 
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struct Node dfh DF; 

UWORD dfh Revision; 

LONG dfh Segment; 

char dfh Name[MAXFONTNAME]; 
struct TextFont dfh_TF; 


7 


Die ersten beiden Felder befinden sich in Kommen- 
tarklammern, weil sie zwar immer am Anfang der Struk- 
tur erscheinen, aber trotzdem nicht richtig dazu ge- 
hören. 


In dfh_ReturnCode stehen für den Fall, daß jemand 
probieren sollte, das File als Programm zu starten, 
folgende Assemb lerbefehle: 


MOVEQ #0,DO 
RTS 


Die den Rücksprung zum aufrufenden Programm veran- 
lassen und smeinen Absturz verhindern. 


In der Node-Struktur, die sich in dfh DF befindet, 
sind nur die Felder In Type und In Name ungleich 
Null. Das Erste beinhaltet den Typ des Nodes, also 
NT FONT, das Zweite einen Zeiger auf den Namen des 
Fonts. Die letzten drei Felder von DiskFontHeader ha- 
ben immer die Werte DFH_ ID, 1 und 0. Als nächstes 
folgen der Fontname (kein Zeiger auf den Namen!) in 
dfh Name und die TextFont-Struktur. 


Zur Erzeugung dieser Struktur, die in der im vori- 
gen Abschnitt besprochene Art einen Zeichensatzes de- 
finiert, benutzen Sie am besten einen Assembler. Die 
Definition sieht dann schematisch so aus: 
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INCLUDE "exec/types.i" 
INCLUDE "exec/nodes.i" 


*Definition der DiskFontHeader-Struktur 


MOVEQ #0,D0 


RTS 

DC.L 0 
oe ee a 
on RT ee 


DS.B MAXFONTNAME 


‘Definition der TextFont-Struktur 


font 

DC.L 0 
.” EEE ER 
DC.L 0 
DC.L fontEnd-font 
a ee Dee nn 
DC.W 8 
DC.L fontLoc 
DC.L fontSpace 
DC.L fontKern 
*Hier kommen die Bilddaten 
fontData: 

DC.W Das u ONE 


oe 0 0 90 0 9 8 9 re Tr Tr Tr Tr 8 8 oo 


“Hier kommen die CharlLoc-Daten 


fontlLoc: 
DEE: zu: 


153 


Kapitel 7 Textdarstellung 


fontSpace: 


. ... -..:.:. .o ..0210. 02,0), 0 0 os so 9 9 9 9 0 [98 0 oe 


oo. ....”.a“”.”a”na..— ...e:"-.—e“.„—. —.CO“C—O—e6er)rO, Ho oo 


* Und hier ist es zu Ende 
fontEnd: 
END 


Wenn Sie nun Ihren Zeichensatz so eingetippt haben, 
dann müssen Sie ihn nur noch assemblieren, linken und 
unter dem richtigen Namen in der FONTS: Directory ab- 
speichern. Die Datei, die die FontContentsHeader und 
die FontContents- Struktur beinhaltet kann übrigens 
auf die gleiche Weise mit dem Assembler und Linker 
erzeugt werden. 


:TeXtausgabe:: mit: :INLULESXE::: 


Neben der schon im ersten Abschnitt vorgestellten 
Textausgabeprozedur Tex?t,die der Grafik-Library ange- 
hört, bietet auch Intuition eine interessante Proze- 
dur zur Textausgabe. Sie ähnelt stark der schon be- 
kannten DrawImage-Routie, die ein durch eine Image- 
Struktur definiertes Bild ausgibt. Die Prozedur, von 
der wir sprechen, heißt PrintIText und die zugehörige 
Struktur IntuiText. In dieser Struktur definieren Sie 
sich einen Text, den Sie dann wiederholt an verschie- 
denen Bildschirmpositionen ausgeben können. Das Schö- 
ne daran ist, daß Sie für diesen Text einen anderen 
Font und/oder eine andere Schriftart als die eben ge- 
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nannte verwenden können. Mit Hilfe eines Verket- 
tungszeigers mehrere dieser Strukturen zu einem ZUu- 
sammenhängenden formatierten Text zu verbinden. 


Wie dies alles zu machen ist, können Sie der fol- 
genden Beschreibung der IntuiText-Struktur entnehmen: 


Abb 7.10 Die IntuiText-Struktur 
struct Intuilext 


UBYTE FrontPen, BackPen; 
UBYTE Drawflode; 

SHORT Lei’tEdge; 

SHORT TopEdge; 

struct TextAttr *ITextfont; 
UBYTE *IText; 

struct IntuiText *NextText; 


. 
7 


Die Felder FrontPen und BackPen bestimmen, wie den 
Namen leicht anzusehen ist, die Vorder- und Hinter- 
grundfarbe. Der Zeichenmodus wird durch Drawflode be- 
stimmt. Dort können Sie die gleichen Werte, die an 
die SetDrMd-Prozedur übergeben werden, einsetzen. Die 
nächsten beiden Felder, LeftEdge und TopEdge geben 
den Abstand des Textes von der Bildschirmposition, 
die beim Aufruf von PrintIText angegeben wurde, an. 


Der Font, der für die Ausgabe des Textes benutzt 
wird, wird durch die TextAttr-Struktur, auf die IText 
Font zeigt, spezifiziert. Wichtig ist, daß der ausge- 
suchte Zeichensatz in der Systemfontliste verfügbar 
ist. Falls Sie den Standardfont des Rastports verwen- 
den wollen, dann geben Sie hier NULL an. Der auszuge- 
bende Text selbst wendet sich an die Adresse, die in 
IText steht. Er muB selbstverständlich durch eine 0 
agbeschlossen sein. Wenn Sie mehrere IntuiText-Struk- 
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turen verketten wollen, dann können Sie dies über 
NextText tun. Schreiben Sie dort einfach die Adresse 
der nächsten Struktur ein. Um eine solche Kette aus- 
zugeben, brauchen Sie, nachdem Sie die einzelnen 
Strukturen initialisiert haben, nur noch die PrintI 
Text Prozedur wie folgt aufzurufen: 


PrintIText(Rast,IText,x,y) 


In Text übergeben Sie der Prozedur die Adresse der 
ersten IntuiText-Struktur. Die Koordinaten, die in x, 
y übergeben werden, bestimmen die Position an der 
Text erscheinen soll. Dabei ist zu beachten, daß er 
nur dann genau an der Stelle x,y erscheint, wenn die 
LeftEdge und TopEdge Felder von IntuiText beide Null 
sind. Diese werden nämlich zu x,y addiert, um die 
endgültige Textposition zu ermitteln. Dadurch haben 
Sie die Möglichkeit, mit mehreren verketetten Intui 
Text-Strukturen, die die entsprechenden LeftEdge- und 
TopEdge-Werte haben, einen ganzen Textbildschirm, mit 
verchiedenen_Fonts, Schriftarten und Farben aufzubau- 
en und immer wieder mit einem einzigen Aufruf von 
PrintIText auszugeben. 


Zum Abschluß des Kapitels noch ein kurzes Beispiel 
für die Anwendung von IntuiText. In dem nachfolgenden 
Programm wird ein Text auf die soeben beschriebene 
Weise dreimal ausgegeben. Dabei wird beim ersten mal 
der Standardfont des Rastports, beim zweiten der 
Font "topaz 9" und beim dritten "topaz 8" verwendet. 


Da es sich bei beiden um ROM-Fonts handelt, brau- 
chen Sie nicht extra geöffnet zu werden. Normalerwei- 
se wird einer der beiden Zeichensätze auch als Stan- 
dardfont verwendet, so daß Sie sich nicht wundern 
müssen, sich zu entscheiden. Auch der Unterschied 
zwischen den beiden "topaz" Fonts hält sich in Gren- 
zen, so daß er vielleicht erst nach genauerem hinse- 
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hen auffält. 
sie zu verwenden, 


zeigen. 


Textdarstellung 


Wir haben uns trotzdem entschlossen, 


Programm 7.5 IntuiText 


#include "intuition/intuition.h" 
#include "graphics/gfx.h" 


struct Window *Window; 
struct RastPort *Rast; 


struct IntuiText InText = {1,0, 


ya 
ya 
2 
P 
ya 


Vorder und Hintergrundfarbe 


14 


0,0, 
Linker und rechter Offset 
f4 
Default Font benutzen 
NULL, 
Noch kein Text 
NULL 
Kein Nachfolger 


. 
7 


Zeichenmodus 


struct TextAttr ITFont = {"Topaz.Font", 


/* Daten des zu öffnenden Fonts 
8, 
/* Dies ist ein Standardfont 


0, 
/* der sich im ROM-befindet 


FPF_ROMFONT 


. 
7 


um die Anwendung der ROM-Fonts zu 


7. 
74 
*/ 
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main () 


SHORT i; 
ULONG Class, Styles, OldStyle; 


OpenIntui(): 
/* Graphics- und Intuitionlibrary öffnen */ 
OpenGfx(); 


/* Fenster öffnen un die Adresse des Rastports 
lesen. */ 
Window = (struct Window*)MakeWindow(200,10,200, 
50,0,0,"IntuiText",SMART REFRESH! 
WINDOWCLOSE,CLOSEWINDOW, NULL); 


if(Window == NULL) 
/* Fehler beim Öffnen. */ 


exit(FALSE); 
Rast = Window->RPort; 


InText.IText = "Ganz normaler Font"; 
/* Auszugebenden Text eintragen */ 


PrintIText(Rast,&InText,10,15); 
/* und ausgeben 4 


InlText.IText = "Topaz Größe 9 "; 
/* Fontname ändern, */ 


InText.ITextFont = &ITFont; 
/* in Inuti Text eintragen */ 


PrintIText(Rast,&InText,10,25); 
/* und Text ausgeben */ 


InText.IText = "Topaz Größe 8"; 
/* Der nächste Font. #7 
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ITFont.ta_YSize = 8; 
/* Größe einstellen, */ 


InText.ITextFfont = &ITFont; 
/* In IntuiText eintragen */ 


PrintIText(Rast,&InText,10,35); 
/* und Text ausgeben #7: 


/* Auf Close Gadget warten und Fenster schließen. */ 


Class = WaitEvent(Window,&code); 
CloseWindow(Window); 


} 
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Kapitel 8 
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Nachdem Sie in den vorangegangnen Kapiteln die 
Grundlagen der Grafikprogrammierung am Amiga kennen- 
gelernt haben, wollen wir uns hier einigen Besonder- 
heiten zuwenden. Erst diese Sondermodi, mit den wir 
uns in diesem Kapitel beschäftigen wollen, heben die 
Grafik des Amiga wesentlich unter den meisten ande- 
ren Computern hervor. Linien und Kreise mit einer 
halbwegs passablen Auflösung konnten schon Computer 
in der Klasse des C-64 zeichnen. Besonderes der HAM- 
Modus, der eine gleichzeitige Darstellung aller 4096 
Farbe ermöglicht, sollte das Herz eines jeden Gra- 
fikprogrammierers höher schlagen lassen. Dazu werden 
Sie in diesem Kapitel noch erfahren, wie Sie eine 
extrabreite Anzeige (bis 1024x1024 Pixel), eine 
Unterteilung des Displays in zwei Tiefenstufen (Dual- 
Playfield) und einige andere interessante Effekte 
ausnutzen können. An vielen Stellen dieses Kapitels 
wird vorausgesetzt, daß der Leser mit dem Inhalt der 
vorangegangenen Kapitel, vor allem der über Intuition 
(Kapitel 2) und Farbeinstellung (Kapitel 3), vertraut 
ist. 


Diesen Modus haben wir schon ganz am Anfang dieses 
Buches im Zusammenhang mit den verschiednen Auf lösun- 
gen eines Screens erwähnt. Er kann durch setzen des 
INTERLACE Flags in dem ViewModes-Feld der NewScreen- 
Struktur beim Eröffnen eines Screens eingeschaltet 
werden (siehe Kapitel 2). Dadurch wird die verti- 
kale Auflösung des Sreens verdoppelt (kann also bei 
der deutschen Version des Amiga bis zu 512 Zeilen 
betragen). 
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Leider hat die Sache einen Haken: die Verdoppelung 
der Anzahl der Zeichen wird dadurch erreicht, daß 
beim Zeichnen des Bildes auf dem Monitor immer 
abwechselnd die geraden und die ungeraden Zeilen 
durchlaufen werden. So ergibt sich sowohl für die 
geraden, als auch für die ungeraden Zeilen, eine 
Bildwiederholungsfrequenz, die um die Hälfte geringer 
ist als im normalen Modus. Die logische Folge davon 
ist, daß das Bild zu flackern beginnt. Besonders 
schlimm wird es, wenn sie nicht nur Bilder, sondern 
vorwiegend Text darstellen wollen, denn dieser ist 
nur mit einiger Anstrengung zu lesen. Ganz vermeiden 
läßt sich dieser Effekt eigentlich nur durch den Kauf 
eines entsprechend guten (und teuren !!) Monitors. 
Aus diesem Grund sollte man, bevor für ein Programm 
den Interlace-Modus wählt, erst mal überlegen ob dies 
wirklich unvermeidlich ist. Haben Sie sich einmal für 
die Interlace-Darstellung entschieden, dann sollten 
Sie zumindest darauf achten, von einer Zeile zur 
anderen keine plötzlichen Farbwechsel zu verwenden. 
Der Flimmereffekt ist nämlich an solchen Stellen 
besonders deutlich. Statt dessen können Sie bei dem 
Übergang von einer Farbe zur anderen stufenweise 
vorgehen. Dazu legen Sie zwischen die beiden Zeilen, 
einige Zeilen, die Mischfarben beinhalten, so daß ein 
sanfter Wechsel entsteht. Auf die Weise läßt sich 
das Flimmern auf ein erträgliches Niveau reduzieren. 
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IDRTEREERERDN 


Da zu einem Screen bekanntlich höchstens 32- 
Farbregister gehören können, sind normalerweise auch 
nicht mehr verschiedene Farben gleichzeitig darstell- 
bar. Um diese Anzahl jedoch zu verdoppeln, haben sich 
die Amiga-Entwickler einen raffinierten Trick einfal- 
len lassen. Durch Verwendung einer sechsten Bitplane 
besteht die Möglichkeit, jede dieser 32 Farben mit 
der halben Helligkeit darzustellen (daher auch der 
Name, Half-Bright = "halbhell"). Diese Möglichkeit 
ist vor allem bei der Darstellung dreidimensionaler 
Objekte oder Schatten besonders nützlich. Die Farben 
werden im Extra-Half-Brigth-Modus ganz normal wie bei 
einer Anzeige der Tiefe 5 gewählt. Zu der Nummer der 
Farbe wird dann, falls diese in der halben Helligkeit 
erscheinen soll, 32 addiert. Dies entspricht dem 
Setzen des-entprechenden Bits in der sechsten Bit- 
plane. Für die Farbe Nr. 15 ergibt sich dann die 
Nummer 32 + 15 also 47. Wenn Sie diese Farbe nun zum 
Zeichnen gebrauchen wollen, können Sie sie wie immer 
mit SetAPen bzw. SetBPen an die Vorder- bzw. Hin- 
tergrundfarbe eines Rastports zuweisen. 


Um den Extra-Half-Brigth Modus einzuschalten, 
müssen Sie nur einen Screen der Tiefe 6 aufmachen. 
Wie auch schon bei einer Tiefe von 5 ist dabei die 
Auflösung auf lowres, also höchstens 320x256 Pixel 
beschränkt. 
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Die 64 Farben, die im Extra-Half-Bright Modus 
verfügbar sind, sollten eigentlich für die meisten 
Zwecke genügen. Sie sind aber noch nicht das Beste, 
was Ihr Amiga zu bieten hat! Mit einigen Einschrän- 
kungen ist es nämlich möglich, im HAM-Modus alle 4096 
Farben nebeneinander auf den Bildschirm zu bringen. 
In diesem Modus werden sechs Bitplanes bei einer 
Auflösung von 320 x 200 Punkten verwendet. Die 
Einschränkungen bestehen darin, daß sich zwei 
horizontal benachbarte Punkte nur in einer der drei 
Komponenten: Rot, Grün oder Blau unterscheiden 
dürfen. Da man eine solche Farbvieifalt in der Regel 
sowieso nur dazu braucht, sanfte Farübergänge zu 
erreichen (z.B. um durch eine ensprechende Schat- 
tierung einen 3-D Effekt zu erzeugen), ist diese Ein- 
schränkung nicht so bedeutend wie man vielleicht 
glauben könnte. Um zu verstehen, wie sie zustande 
kommt, muß man zunächst die Farbdarstellung im HAM- 
Modus betrachten. Da eine direkte Speicherung der 
4096 Farbnummern in Bitplanes nicht möglich ist (man 
bräuchte dafür 12 Bitplanes und ungefähr 750 KByte), 
haben sich die Amiga Entwickler wieder mal einen 
Trick einfallen lassen. Von den sechs Bitplanes, die 
für HAM-Darstellung gebraucht werden, werden die 
zwei oberen (Bitplane 5 und 6, also Bits 4 und 5) als 
"Schalter" benutzt. Sie bestimmen, welche Bedeutung 
den restlichen Bitplanes bei der Bestimmung der Farbe 
eines Punktes zukommt. Dabei gibt es die folgenden 
vier Möglichkeiten. 
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(1) Die Bits 0 bis 3 (Bitplanes 1 bis 4) werden als 
Nummer eines der Farbregister 0 bis 15 interpretiert. 
Der Punkt nimmt dann die durch dieses Register 
bestimmte Farbe an. 


(2) Der rote und der grüne RGB-Anteil der Farbe des 
Punktes werden von dem linken Nachbarn übernommen. 
Der Blauanteil wird durch die Bits 0 bis 3 bestimmt 
(mit 4 Bits kann man gerade die Zahlen 0 bis 
15 darstellen). 


(3) Der blaue und der grüne RGB-Anteil der Farbe des 
Punktes werden von dem linken Nachbarn übernommen. 
Der Rotanteil wird durch die Bits 0 bis 3 bestimmt. 


(4) Der blaue und der rote RGB-Anteil der Farbe des 
Punktes werden von dem linken Nachbarn übernommen. 
Der Grünanteil wird durch die Bits 0 bis 3 bestimmt. 


Diese vier Modi werden durch die folgenden vier 
Kombination der Bits 4 und 5 ausgewählt; 


Abb 8.1 Die Bedeutung der Bits 4 und 5 im HAM-Modus 


I Bits 1 Modus | 
ij 00 | 1 | 
ji 01 | 2 | 
ji 20 | 3 | 
“u 
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Wie sieht also die Farbzuweisung im HAM-Modus 
praktisch aus? Wir wollen uns das mal an Hand 
einiger konkreter Beispiele ansehen. Als erstes soll 
einem Punkt einfach eine von 16 vordefinierten Far- 
ben zugewiesen werden. Wie der obigen Aufzählung zu 
entnehmen ist, müssen Sie dazu die oberen beiden 
Bitplanes (also die oberen beiden Bits der Farbnum- 
mer) auf 00 setzen, und mit den unteren vier die 
Farbe als eine Zahl zwischen O und 15 angeben. Haben 
Sie sich z.B. für die Farbe Nr. 10 entschieden, 
ergibt sich der Farbwert aus: 


0 +10 = 10 


Dabei wird durch die 0 der Modus 1 und durch die 10 
das entsprechende Farbregister angewählt. Diese Farbe 
kann dann wie schon bekannt mit SetAPen zur Vorder- 
grundfarbe gemacht werden. Mit den in den früheren 
Kapiteln beschriebenen Zeichenroutinen können Sie 
dann beliebigen Punkten Ihrer Anzeige diese Farbe 
zuordnen. 


Einfach, nicht wahr? Aber natürlich auch langwei- 
lig, denn das können Sie auch mit einem normalen 
Screen der Tiefe 4 machen! 


Als nächstes wollen wir mal in einer Zeile von 
links nach rechts einen kleinen Regenbogen zeichnen. 
Dabei soll der erste Punkt von Links schwarz sein 
(RGB-Zusammensetzung 0,0,0) und der letzte die Farbe 
der RGB-Zusammensetzung 15,15,15 haben. Dabei soll 
von links nach rechts zunächst der Blauanteil, dann 
der Rotanteil und schließlich der Grünanteil bis 15 
ansteigen. Insgesamt wären das 15 + 15 + 15 also 45 
verschiedene Farben in einer Zeile. Nachdem Sie den 
ersten Punkt auf die gerade beschriebene Art 
schwarzgemacht haben, wollen Sie für den daneben 
liegenden Punkt die grüne und die rote Farbkomponente 
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übernehmen (also 0 lassen !) und die blaue auf 1 
setzen. Die unteren 4 Bits der Farbnummer müssen also 
den Wert 0001 haben (Binärzahl 1), während die oberen 
beiden 01 sein müssen. Das ergibt das folgende 
Bitmuster: 


01 0001 
Die Farbnummer ist also: 


1*2Hoch4 +1=16 +1 =]717 


Bei den nun nachfolgenden Punkten setzen sie analog 
den Blauanteil immer höher (die Farbnummern sind dann 
18, 19 etc. Es verändern sich also nur die 4 unteren 
Bits) bis dieser bei 15 angelangt ist. Nun ist es an 
der Zeit den Rotanteil zu verändern. Die oberen Bits 
müssen hierzu 10 sein, die unteren durchlaufen 
wieder alle die Zahlen 1 bis 15 (also binär 0001 bis 
1111). Die-tarbnummer für den sechszehnten Punkt von 
links ist demnach: 


1*2Hoch5 +1=32 +1 = 33 


Bei den Punkten 30 bis 44 wird analog der Rotanteil 
schrittweise vergrößert wobei zu beachten ist, daß 
die beiden oberen Bits nun 11 sind. Auf eine ähnliche 
Art und Weise werden in dem folgenden Beispielpro- 
gramn 256 Farben als Linien nebeneinander darge- 
stellt. 
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Programm 8.1 HAM 


#inc lude"Display.h" 

#inc Iude"graphics/gfx.h" 

#inc lude"intuition/intuition.h" 
struct Window *Window; 
struct Screen *Screen; 
struct RastPort *Rast; 

struct YiewPort *View; 


main () 
USHORT code, i, J, h; ULONG Class; 


OpenIntui(); 
OpenGfx(); 


/* Einen low-res Screen öffnen. */ 

Screen = (struct Screen *)HakeScr(0,0,320,250, 
"HAM-Demo",6,HAM,NULL,NULL); 

if (Screen == NULL) 

exit(FALSE); 


/* Ein Fenster auf dem neuen Screen öffnen */ 
Window = (struct Window *)MakeWindow(20,50,270, 
100,0,0,"Ham-Demo",WINDOWCLOSE ;/ ACTIVATE, 
MOUSEBUTTONS ! CLOSEWINDOW, Screen); 
if(Window == NULL) /* Fehler beim Offnen ?_ */ 
exit(FALSE); 


/* Adresse des Viewports und des Rastports holen */ 
Rast = Window->RPort; 
View = &((*(Window->WScreen)).ViewPort); 


SetRGB4(View,0,5,0,0); 


/* Hintergrundfarbe schwarz */ 
for(i = 0; i <= 15; i++) 
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for(j = 0; j< 15; jt+) 


SetAPen(Rast,32+j); 
Move(Rast, i*16+Jj,0); 
Draw(Rast, i*16+j,100); 


N 

SetAPen(Rast,16+i); 
Move(Rast, i*16+15,0); 
Draw(Rast, i*16+15,100); 


7 


/* Auf Close-Gadget warten und alles schließen */ 


Class = WaitEvent(Window,&code); 
CloseWindow(Window); 
CloseScreen(Screen); 


Da die Farbe eines Punktes im HAM-Modus beim 
Zeichnen nicht nur von der aktuellen Vorder- bzw. 
Hintergrundfarbe, sondern auch von der Farbe seiner 
Nachbarn abhängt, sollte man mit Prozeduren, die 
ganze Figuren zeichnen (also z.B. Draw oder 
DrawCircle) vorsichtig umgehen. Es ist nämlich nicht 
unbedingt gesagt, daß die gesamte Figur dann in der 
gewünschten Farbe erscheint. Ein weiteres Problem 
ergibt sich aus der Tatsache, daß der erste Punkt von 
links (also der mit der x-Koordinate 0) keinen linken 
Nachbarn hat. Dies heißt, daß man seine Farbe immer 
direkt, also im Modus 1, setzen muß. 
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Bevor wir mit der Beschreibung weiterer Darstel- 
lungsmodi fortfahren, wollen wir den Bilddarstel- 
lungsmechanismus noch einmal genauer unter die Lupe 
nehmen. Wir wollen dabei versuchen, ein Bild ganz 
ohne Zuhilfenahme von Intuition, also ohne Screens 
und Fenster, zu erzeugen. Dazu müssen wir zuerst die 
ViewPort- und View-Strukturen der Grafik-library und 
ihre genaue Funktion untersuchen. Das gesamte Bild, 
das zu einem gegebenen Zeitpunkt angezeigt wird, wird 
durch die View-Struktur bestimmt. Diese umfaßt dann 
mehrere ViewPort-Strukturen, die ihrerseits die ein- 
zelnen Displayelemente beschreiben. Die View an sich 
besagt weder etwas über die Auflösung, noch über die 
Größe der Anzeige. Sie beinhaltet lediglich Informa- 
tionen über die Anordnung der Viewports. So kann das 
Bild zu jedem Zeitpunkt aus mehreren Ausschnitten 
(Viewports) verschiedener Auflösung und Größe beste- 
hen. Genau das sehen Sie, wenn Sie mehrere Screens 
verschiedener Auflösung übereinander schieben. Jedem 
Screen ist nämlich eine ViewPort-Struktur, die seine 
Eigenschaften bestimmt, zugeordnet. Diese wird dann, 
wenn der Screen sichtbar wird, von Intuition an die 
Liste der ViewPort der aktuallen View angehängt. Soll 
der Screen wieder verschwinden, dann: wird dieser 
Eintrag einfach wieder entfernt. Neben View und 
ViewPports sind für den Aufbau eines Bildes noch zwei 
weitere, aus früheren Kapiteln schon bekannte, Struk- 
turen notwendig: die BitMap- und die RastPort-Struk- 
tur. Die erste stellt die Verbindung zu dem Spei- 
cherbereich her, in dem die Bilddaten liegen, während 
die zweite bekanntlich den "Zeichenstift" beschreibt. 
Beide gehören zu einem einzelnen ViewPort, nicht zu 
einer View. Die Verbindung zwischen dem ViewPort und 
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der BitMap stellt eine weitere Struktur, nämlich 
RasInfo her. So beinhaltet ViewPort einen Zeiger auf 
RasInfo und RasInfo einen Zeiger auf die BitMap. Die 
Adresse der BitMap ist selbstverständlich auch im 
RastPort zu finden. Einen Überblick über die be- 
schriebenen Beziehungen dieser Strukturen können Sie 
sich auch anhand der nachfolgenden Abbildung ver- 
schaffen: 


Bild 8.1 - Die Verknüpfung der View-Strukturen. 


Er RER 
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Aus der obigen Beschreibung ergibt sich nun die 
folgende Vorgehensweise beim Erstellen einer eige- 
nen Anzeige: 

(1) Erzeuge und initialisiere eine View-Struktur. 


(2) Für jedes Element der Anzeige erzeuge und initia- 
lisiere eine ViewPort-Struktur. 


(3) Für jede ViewPort-Struktur erzeuge eine RasInfo- 
Struktur und trage ihre Adresse in ViewPort ein. 
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(4) Für jedes Anzeigeelement muß eine BitMap (die 
eigentliche BitMap-Struktur und der dazu gehörige 
Speicher für Bilddaten) erzeugt und in die ent- 
sprechende RasInfo-Struktur eingetragen werden. 


— 
an 
nn 


Damit in jedes Element der Anzeige auch mit Hilfe 
der Grafikroutinen der Grafik-Library gezeichnet 
werden kann, müssen noch RastPort-Strukturen 
erzeugt und initialisiert werden. In jeden Rast- 
Port muß dann die Adresse der dazu gehörigen Bit- 
Map eingetragen werden. Falls Sie kein Rastport 
erzeugen, müssen Sie durch direktes Schreiben in 
den Bilddatenspeicher zeichnen, was recht mühsam 
ist. 


(6) Bringe die eigenen View zur Anzeige. 


Dies ist selbstverständlich nur ein grober 
"Schlachtplan" der noch näherer Erläuterung bedarf. 
Wir werden allerdings dabei auf die genaue Beschrei- 
bung der einzelnen recht umfangreichen Strukturen im 
Rahmen dieses Kapitels verzichten. Deren genauen 
Beschreibung finden Sie im Anhang B. Der erste Punkt, 
die Initialisierung der View-Struktur, ist recht 
einfach. Sie brauchen nur eine Variable des Typs 
struct View zu vereinbaren: 


struct View View; 
und übergeben Ihre Adresse wie folgt an die Prozedur 
InitView: 


InitView(&View); 
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Diese trägt in alle Felder der Struktur die Werte 0 
bzw. -1 ein. Als nächstes werden analog, diesmal mit 
Hilfe der InitVPort-Prozedur, die ViewPorts erzeugt. 
Sie müssen dazu noch einige Felder der ViewPort- 
Strukturen wie folgt initialisieren: 


DWitdh,DHeight: 
Gewünschte Höhe und Breite des neuen Viewports. 


DxOffset, DyOffset: 

Die Lage des neuen Viewports im Bezug auf die 
linke obere Ecke der Anzeige. Zwischen zwei Viewports 
muß immer mindestens eine Bildzeile Abstand gelassen 
werden. Das heißt auch, daß Viewports zwar unterein- 
ander, nie aber nebeneinander liegen können. 


Modes: 

Der Anzeigemodus, also die Auflösung und die gewün- 
schten Sondermodi. Hier können Sie die gleichen Werte 
wie im Kapitel 2 für das ViewModes-Feld der 
NewScreen-Struktur beschrieben, eingesetzt werden 
(Also z.B. HIRES ! MAM). 


Co lorHap: 

Hier wird die Adresse einer ColorMap-Struktur, die 
die RGB-Zusammensetzung der für den Viewport gültigen 
Farben beinhaltet, eingetragen. 


RasInfo: 

Die Adresse der dazu gehörigen RasInfo-Struktur. Wie 
diese initialisert werden muß, wird später beschrie- 
ben. 


Eine korrekt initialisierte ColorMap-Struktur be- 
kommen Sie, wenn Sie die Routine GetColorMap(n) 
aufrufen. Sie liefert als Funktionsergebnis die 
Adresse einer solchen, vollständig initialiserten 
Struktur, die n Farben aufnehmen kann. An die 


174 


Kapitel 8 Sonderdarstellungsmodi 


Adresse ,die durch das ColorTable-Feld dieser Struktur 
angegeben wird, können Sie dann die gewünschten Farb- 
werte kopieren. Die kann im Programm etwa wie folgt 
aussehen: 


struct ColorMap *CMap; 


ov....‚a‚r. e.e©. 


CMap = GetColorMap(4); 
CopyMem(Colors,CMapB>ColorTable,8); 


Beachten Sie dabei, daß die Anzahl der zulässigen 
Farben von der Tiefe der Bitmap Ihres Viewports 
abhängt (siehe unten). Um den Viewport ganz fertig- 
zustellen, fehlt nur noch die RasInfo-Struktur. Bevor 
Sie in den Viewport eingetragen wird, müssen die 
folgenden Felder initialisiert werden: 


Next: 

Dieses Feld hat nur für den DualPlayfield-Modus eine 
Bedeutung und sollte sonst unbedingt auf NULL 
gesetzt werden. 


Rx0öffset, RyOffset: 

Die Position der linken oberen Ecke der Bitmap in 
Bezug auf die linke obere Ecke des Viewports. Diese 
Felder können, wie Sie später sehen werden, sehr gut 
zum Scrollen benutzt werden. 


BitMap: 

Hier wird die Adresse der BitMap-Struktur des View- 
ports eingetragen. Die BitMap-Struktur, deren Adresse 
in das letzte Feld von RasInfo eingetragen werden 
muß, beinhaltet Angaben zur Tiefe, Breite und Höhe 
der Bitmap, sowie eine Tabelle mit den Adressen der 
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Bitplanes (also der Speicherbereiche, wo die eigent- 
liche Bildinformation gespeichert ist). Um sie zu 
erstellen müssen Sie zweierlei tun: Zuerst rufen Sie 
die Prozedur InitBitMap mit der Adresse einer nicht 
initialisierten BitMap-Struktur (BMap), der Tiefe 
(Depth), der Breite in Pixel (Width) und der Höhe 
(Height) wie unten dargestellt, auf. 


InitBitMap(BMap,Depth,Width,Height); 


Wichtig ist, daß dieser Aufruf lediglich die Felder 
der Struktur initialisiert, und keine neue BitMap- 
Struktur erzeugt. Auch die Allozierung des für die 
Bitplanes benötigten Speicherbereiche und das Eintra- 
gen ihrer Adressen in das Planes[]-Feld der Struktur 
müssen Sie selbst in die Hand nehmen. Dies geschieht 
am besten in einer for-Schleife mit Hilfe der schon 
bekannten AllocMem-Routine. 


for(i = 1; i <= Depth; i++) 
BMap->Planes[ i-1]=AlTlocMem((Width*Height), 
MEHF CHIP /MEMF_CLEAR)); 


Vergessen Sie dabei nicht, daß diese Speicherbe- 
reiche im CHIP-RAM liegen müssen. Es ist auch durch- 
aus sinnvoll, durch Setzen des MEMF CLEAR-Flags den 
Speicher gleich mit Nullen zu füllen (sonst werden 
Sie nach dem Einschalten des Viewports irgendei- 
nen "Müll" zu sehen bekommen). Nachdem alle zu der 
View gehörenden Strukturen wie beschrieben erstellt 
wurden, kann sie endlich auf den Bildschirm gebracht 
werden. Dazu sind nur noch die folgenden drei Aufrufe 
notwendig: 
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MakeVPort(&View,&ViewPort); 
MrgCop(&View); 
LoadView(&View); 


Die ersten beiden sorgen dafür, daß die Befehls- 
listen für den Coprozessor (Copperlisten), die für 
die Bilddarstellung notwendig sind, erstellt werden 
(siehe Kapitel 10 ). Eingeschaltet wird unsere View 
mit dem letzten Befehl. Er bewirkt, daß alles was 
bisher auf dem Bildschirm zu sehen war, verschwindet 
und durch unsere, zunächst leere Anzeige ersetzt 
wird. Zum Zeichnen in den Viewports können Sie 
entweder direkt in die Bitplanes schreiben, oder zu 
jedem Viewport einen eigenen Rastport erzeugen, indem 
Sie alle Grafikbefehle anwenden können. Zur Erstel- 
lung des Rastports übergeben Sie einfach die Adresse 
einer RastPort-Struktur an die InitRastPort-Prozedur, 
und tragen dann in das BitMap-Feld der Struktur die 
Adresse der zu dem Viewport gehörenden BitMap. 


Das sieht dann im Programm z.B. so aus: 


InitRastPort(&Rast); 
Rast.BitMap = ViewPort.RasInfo.BitMap; 


An dieser Stelle noch ein Tip. Falls Sie irgend- 
wann wieder zu der alten Anzeige (also z.B. zum Work- 
bench-Screen) zurückkehren wollen, dann sollten Sie 
sich vor dem Aufruf von LoadView die Adresse der 
aktuellen View merken. Sie können sie wie folgt aus 
der GfxBase-Struktur auslesen: 


oldView = GfxBase->ActiView; 
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Neben der Wiederherstellung des alten Bildschirmin- 
haltes sollten Sie auch an die Freigabe des nicht 
mehr benötigten Speichers denken. Dabei handelt es 
sich um die Bitplanes, die ColorMaps und die Copper- 
listen. Die Deallozierung der Bitplanes geschieht in 
einer zu der Allozierung analogen Weise mit Hilfe 
der FreeMem-Prozedur. Die ColorMaps und die Copper- 
listen der einzelnen Viewports können folgendermaßen 
mit Hilfe der FreeColorMap und FreeVPortCopLists Rou- 
tinen freigegeben werden. 


FreeVPortCopL ists(&ViewPort); 
FreeColorMap(&Co Map); 


Als letztes muß nur noch die Copperliste der gesam- 
ten View mittels FreeCprList so gelöscht werden: 


—reeCprL ist(View.LOFCprList); 


Zum Abschluß dieses recht langen Abschnittes ein 
Beispielprogramm. Es erzeugt eine View (V) mit zwei 
untereinanderliegenden Viewports (Viewl und View2) 
verschiedner Auflösung (320 x 200 und 640 x 200). 
Interessant ist dabei die Tatsache, daß beide View- 
ports die gleiche RasInfo-Struktur, also auch die 
gleiche Bitmap haben. Dadurch wird alles, was in den 
einen Viewport gezeichnet wird, auch im anderen 
sichtbar ist, allerdings in einer anderen Auf lösung. 
Um diesen Effekt zu demonstrieren, wird durch die 
Programmeigene Prozedur CreateDisplay in den eben- 
falls gemeinsamen Rastport der Vieports eine aus 
vielen Ellipsen bestehende Figur langsam gezeichnet. 
Sie können dies deutlich beobachten, da die Figur in 
den beiden Viewports gleichzeitig entsteht. 
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Zur Erzeugung und Freigabe der Bitmap benutzt das 
Programm Prozeduren, die wir in einem späteren Ab- 
schnitt im Zusammenhang mit einem neuem include-File 
vorstellen werden. 


Programm 8.2 Viewports 


#include "exec/types.h" 
#include "exec/memory.h" 
#include "graphics/gfx.h" 
#include "graphics/view.h" 
#include "graphics/copper.h" 
#include "DisplayTools.h" 
#define DEPTH 1 

#define WIDTH 300 

#define HEIGHT 120 


#define X0 160 
#define YO 130 
struct View V, *oldView; 


struct ViewPort Viewl, View2; 
struct ColorMap *CMap; 

struct RasInfo RInfo; 

struct RastPort Bahn 

struct BitHap *B, 

short Colors [] = OR DOA, 0x0A0}; 


/* Farbtabelle: Blau und Grün */ 
main() 
OpenGfx(); 


BMap = MakeBitMap(DEPTH,WIDTH,HEIGHT); 
/* BitMap erzeugen */ 
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/* Initialisiere die View und Viewport 
Strukturen beider Viewports */ 

InitView(&V); 
InitVPort(&Viewl); 
V.ViewPort = &Viewl; 

/* ViewPort und View verknüpfen */ 
InitVPort(&View2); 
Viewl.Next = &View2; 

/* Nächsten Viewport anknüpfen */ 


/* RasInfo initialisieren */ 


RInfo.BitMap = BMap; 
RInfo.RxOffset = 0; 
RInfo.RyOffset = 0; 
RInfo.Next = NULL; 


/* Farbtabelle erstellen */ 
CMap = GetColorMap(2); 


/* Allozieren */ 
CopyMem(Colors,CMap->ColorTable,sizeof(Colors)); 
/* Farben eintragen */ 


/* Alles in den ersten ViewPort und */ 


Viewl.RasInfo = &RInfo; 
Viewl.ColorMap = CHap; 
View1.DWidth = WIDTH; 
View1.DHeight = HEIGHT; 


/* in den zweiten ViewPort eintragen */ 
View2.RasInfo = &RInfo; 

View2.ColorMap = CMap; 

View2.DWidth = WIDTH; 

View2.DHeight = HEIGHT; 

View2.DxOffset = X0; 
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/* ViewPort nach unten versetzt */ 
View2.DyOffset = YO; 
View2.Modes = HIRES; 


/* Copperliste für die Viewports erzeugen */ 
MakeVPort(&V,&Viewl); 

MakeVPort(&V,&View2); 

KrgCop(&V); 


/* Einen Rastport erzeugen und initialisieren */ 
InitRastPort(&Rast); 
Rast.BitHMap = BMap; 


/* Aktuelle View retten und die eigene in 
Vordergrund bringen, */ 

oldView = GfxBase->ActiView; 

LoadView(8&V); 


/* etwas in den neuen Viewport zeichnen */ 
CreateDisplay(&Rast); 


/* und den alten Zustand wiederherstellen */ 
LoadView(oldView); 
FreeAll(); 


FreeAll() 
{ 


/*  Copperlisten freigeben */ 
FreeVPortCopL ists(&Viewl); 
FreeVPortCopL ists(&View2); 
FreeCprList(V.LOFCprList); 


/* BitMap samt Bitplanes freigeben */ 
FreeBitMap(BMap); 
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/* Farbtabelle freigeben */ 
FreeColorMap(CHap); 


} 
CreateDisplay(Rast) 


struct RastPort *Rast; 


int 1,3 


/* Text ausgeben */ 
Move(Rast,70,8): 

SetAPen(Rast,1); 

Text(Rast, "Hallo hier bin ich !!",20); 


/* Einige Ellipsen zeichnen */ 
for(i = 0; i<100; i++) 


{ RE 
DrawE 1Tipse(Rast,150,70,1,50-1/2); 
for(j = 0; J<6000; J++); 
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Wenn man sich die ViewPort-und die RasInfo Struktu- 
ren näher anschaut, sieht man, daß es durchaus 
interessant sein könnte, einige ihrer Felder zu 
modifizieren. Dabei sind vor allem DxOffset, DyOffset 
(in Viewport) bzw. RxOffset, RyOffset (in RastPort) 
gemeint. Durch Veränderung dieser Felder kann die Po- 
sition des Viewports innerhalb der View bzw. der 
Bitmap innerhalb des Viewports verändert werden. 
Dadurch lassen sich sehr leicht fließende Scrollef- 
fekte erzielen. Dieses Verfahren wird auch von Intui- 
tion beim Verschieben und Übereinanderschieben von 
Screens angewandt. Der Vorteil gegenüber dem bekann- 
ten Scrolling mittels ScrollRaster liegt darin, daß 
hierbei Teile des Bildes zwar vom Bildschirm ver- 
schwinden können, dabei aber nicht gelöscht werden. 
Sie können also durch Scrollen um den gleichen Betrag 
in umgekehrte Richtung den alten Bildschirminhalt 
wieder herstellen. Das Verändern der Komponenten des 
Viewports allein reicht allerdings nicht ganz aus, 
um eine Veränderung des Bildes zu erzielen. Wenn Sie 
es versuchen, werden Sie feststellen, daß sich nichts 
tut. Das liegt daran,daß sich die Hardware (der 
Copper) die für die Bilderstellung relevante Informa- 
tion nicht direkt aus den Datenstrukturen, sondern 
aus den daraus aufgebauten Copperlisten holt. Um 
diese zu modifizieren, müssen Sie nach jeder Ver- 
änderung in der ViewPort- bzw. RasInfo-Struktur 
ScrollVPort mit der Adresse der ViewPort-Struktur 
aufrufen. Ein Beispiel für Scrollen nach dem oben 
beschriebenen Prinzip werden Sie in dem nächsten 
Programm finden. 
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In diesem Modus besteht ein Viewport aus zwei 
Schichten (Playfields). Eine von ihnen befindet sich 
dabei im Vordergrund, die andere im Hintergrund. Das 
Besondere ist, daß ein beliebiger Pixel jeder Schicht 
durchsichtig gemacht werden kann. Es kann auch jedes 
Playfield unabhängig vom anderen beschrieben werden. 
Das heißt, daß Sie etwas in die vordere Schicht 
schreiben können, ohne den Inhalt der hinteren 
Schicht an der gleichen Position zu löschen. Wenn Sie 
das erste Playfield später an dieser Stelle wieder 
durchsichtig machen, kommt der unveränderte Inhalt 
des Hinteren wieder zum Vorschein. Dies ist besonde- 
res für Spieleprogrammierung sehr nützlich. Sie kön- 
nen z.B. die vordere Schicht bis auf einen kleinen 
durchsichtigen Kreis schwarz machen und das eigent- 
liche Bild in die hintere Schicht zeichnen. Wenn Sie 
nun eines der beiden Playfields Scrollen, entsteht 
der Eindruck eines bewegten Fernrohres. 


Wir wollen zuerst die Einrichtung eines Dual- 
Playfield-Displays auf der Viewport-Ebene betrachten. 
Später werden Sie anhand eines Beispielprogramms 
sehen, wie sich ein Dual-Playfield Screen öffnen 
läßt. Ein Dual-Playfield Viewport unterscheidet sich 
von einem "normalen" in zwei Punkten: 


(1) Das DUALPF-Bit des Modes Feldes der ViewPort- 
Struktur ist gesetzt. Falls Sie wollen, daß nicht 
das erste, sondern das zweite Playfield im Vorder- 
grundliegt, müssen Sie auch das Bit setzen. 


(2) Die ViewPort-Struktur beinhaltet zwei RasInfo- 
Strukturen, von den jede die Adresse einer anderen 
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Bitmap beinhaltet. Die Adresse der ersten RaslInfo- 
Struktur steht wie immer in dem RasInfo-Feld der 
ViewPort-Struktur, die Adresse der zweiten in dem 
Next-Feld der ersten. Jede der RasInfo-Strukturen ist 
für eines der beiden Playfields stellvertretend (da- 
her auch die verschiedenen Bitmaps, für jedes Play- 
field eine eigene). 


Da man gewöhnlich in jede Schicht etwas zeichnen 
oder schreiben möchte, sollte man auch zwei RastPort- 
Strukturen erzeugen (siehe Abschnitt 5). Jede dieser 
Strukturen beinhaltet einen Zeiger auf die Bitmap des 
entsprechenden Playfields. Da sich der Zeiger auf die 
ColorMap-Struktur in der ViewPort-Struktur befindet, 
ist sie für beide Playfields gemeinsam da. Damit 
trotzdem jedes Playfield seine eigenen Farben benut- 
zen kann, ist die erste Hälfte der Farbtabelle für 
das erste, und die Zweite für das zweite Playfield 
reserviert. Wenn also das erste Playfield die Tiefe 1 
(also 2 Farben) hat, dann wird die Farbe 1 des 
zweiten Playfields in Wirklichkeit die Farbe 3 sein. 
Denken Sie auch daran, daß die Farbe 0 bei bei den 
Playfields Duchrsichtigkeit bedeutet. Die maximale 
Anzahl der Farben eines Playfields ist 8, da die 
Summe der Tiefen der Playfields, also die Tiefe der 
gesamten Anzeige, höchstens 6 sein darf. Je nach 
Gesamttiefe der Anzeige können die einzelnen Play- 
fields nur folgende Tiefen haben: 
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Abb. 8. Die Bitplaneverteilung bei Dual-Playfield 
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Zum Schluß noch einmal ein Überblick darüber, was 
zur Erstellung eines Dual-Playfield-Viewports getan 
werden muß: 


(1) Eine ViewPort-Struktur mit gesetzen DUALPF-Bit 
erzeugen. 


(2) Zwei Bitmaps (BitMap-Strukturen + allozierte Bit- 
planes) für die beiden Playfields erzeugen. Die 
Bitmaps müssen nicht unbedingt gleich groß sein. 


(3) Zwei RasInfo-Strukturen erstellen, über das Next- 
Feld verketten und die Adressen der Bitmaps ein- 
tragen. 


(4) Die Adresse der ersten RasInfo-Struktur in den 
Viewport eintragen. 


(5) Zum Zeichnen für jedes Playfield einen Rastport 
erzeugen. 
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Bei dieser Aufzählung haben wir natürlich nur das 
erwähnt, was speziell für den Dual-Playfield Modus 
wichtig ist (siehe Abschnitt 5). 


Im Allgemeinen ist es bequemer, mit Screens und 
Fenstern, als mit Viewports zu arbeiten. Dies gilt 
auch für den Dual-Playfield-Modus. Wenn Sie sich an 
Kapitel 2 erinnern, dann wissen Sie noch, daß in dem 
ViewModes-Feld der NewScreen-Struktur, die die Dis- 
playeigenschaften bestimmt, auch das DUALPF-Flag ge- 
setzt werden kann. Man kommt da in Versuchung, dieses 
Flag erst einmal zu setzen, und zu hoffen, daß nach 
dem Aufruf von OpenScreen ein Dual-Playfield-Screen 
geöffnet wird. Leider ist die Sache aber nicht ganz 
so einfach. Es wird zwar das entsprechende Flag im 
Viewport des Screens gesetzt und eine zweite RasInfo- 
Struktur erzeugt und angehängt, aber keine zweite 
Bitmap erstellt. Die OpenScreen-Routine ignoriert 
auch die Tatsache, daß im Dual-Playfield-Modus die 
Gesamttiefe der Anzeige unter die Playfields verteilt 
wird, und trägt eine Bimap der Gesamttiefe in die 
erste RasInfo-Struktur ein. Um einen Dual-Playfield- 
Screen zu erzeugen, müssen Sie also die Erstellung 
und das Eintragen der Bitmaps selbst in die Hand 
nehmen. Dazu setzen Sie beim Öffnen des Screens 
zusätzlich das CUSTOMBITMAP-Flag des Type-Feldes der 
NewScreen-Struktur und tragen die Adresse der Bitmap 
des ersten Playfields in das Bitmap-Feld ein. Dazu 
müssen Sie die Bitmap selbstverständlich vorher 
erstellt haben! 
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Damit eine genügend große Farbtabelle erzeugt wird, 
geben Sie als Tiefe die Gesamttiefe, also die Summe 
der Tiefen der Playfields an. Ist der Screen ge- 
öffnet, so muß nur noch die Adresse der Bitmap des 
zweiten Playfields (sie muß vorher natürlich auch 
erstellt werden !) in die zweite ARasInfo-Struktur 
des Viewports des Screens eingetragen werden. Damit 
das System die zweite Bitmap wahrnimmt, müssen Sie 
zum Schluß noch die ScrollVPort-Prozedur aufrufen. 
Wenn Screen ein Zeiger auf den neuen Screen ist, dann 
sieht es so aus: 


Screen->ViewPort.RasInfo->Next->BitMap = BitHap2; 
ScrolIVPort(&(Screen->ViewPort)); 


Die RastPort-Struktur, die in der Screen-Struktur 
enthalten ist, gehört selbstverständlich zu dem er- 
sten Playfield. Daher sollten Sie sich einen zweiten 
Rastport für das zweite Playfield erzeugen. Da das 
Öffnen eines Dual-Playfield-Screens recht mühsam ist, 
haben wir in dem am Ende des Kapitels abgedruckten 
include-File eine Routine geschrieben, die dies für 
Sie tut. Sie benutzt zum Öffnen des Screens die 
MakeScreen-Routine aus dem include-File Display.h aus 
dem zweiten Kapitel. 


Im nachfolgenden Beispielprogramn benutzen wir 
diese Routine, um einen Dual-Playfield Screen zu 
Öffnen. Dann wird in jedem Playfield ein Gitter aus 
kleinen Quadraten erzeugt. Diese Gitter werden dann 
hin und her gescrollt. Dabei können Sie sehr qgut 
beobachten, daß das eine Gitter sich immer vor dem 
anderen befindet. Beim Scrollen benutzen wir die im 
vorigen Abschnitt besprochene Methode des Veränderns 
der X und Y-Offsets eines Viewports. 
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Programm 8.3 Dual-Playfield 


#inc Iude"graphics/gfx.h" 

#inc Iude" intuition/intuition.h" 
#inc lude"stdio.h" 

#inc lude"DisplayTools.h" 


struct Screen *Screen; 
struct RastPort *Rastl, *Rast2; 


main () 


short n,j: 
long i; 


OpenIntui(); OpenGfx(); 
* Einen low-res Screen öffnen. */ 
Screen = (struct Screen *)MakeDPFScr(0,0,320,250, 
"Dua IPlayfield",4,NULL,NULL ,&Rast1,&Rast2); 


/* Ein Durchsichtiges Viereck im Playfield 1 an 
der Mausposition */ 

SetAPen(Rastl1,1); 

SetAPen(Rast2,1); 

for (i = 5; i <= 15; it+) 

for (j = 3; J <= 12; jt+) 


RectFill(Rast1,19*i,19*j,15*i+8,15*j+8); 
RectFill(Rast2,15*i+5,15*j+5,15*1+12,15*j+12); 
for (i = 0; i <=5; i++) 


Mr (J = 0; j <= 50; j++) 
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(Screen->ViewPort).RasInfo->Next->RxOffset += 1; 
ScrolIVPort(&(Screen->ViewPort)); 


ho 
for (j = 0; j <= 100; ++) 


(Screen->ViewPort).RasInfo->Next->Rx0ffset -= 1; 
ScrolIVPort(&(Screen->ViewPort)); 


}i 
for (j = 0; j <= 50: j#+) 


(Screen->ViewPort).RasInfo->Next->RxOffset += 1; 
ScrollIVPort(&(Screen->ViewPort)); 


7 


}7 


/* Screen schließen */ 
CloseDPFScreen(Screen); 


Das Beispielprogramm und die obige Beschreibung 
bezogen sich auf einen Screen. Was ist aber wenn man 
im Dual-Playfield Modus die Vorteile der Fenstertech- 
nik nutzen will (Menus, IDCMP, etc.) ? Nun, da ein 
Fenster weder einen eigenen Viewport noch (in der 
Regel) eine eigene Bitmap besitzt, kann man verständ- 
licherweise kein Dual-Playfield-Fenster auf einem 
normalen Screen öffnen. Andererseits spricht aber 
nichts dagegen, ein Fenster auf einem Dual-Playfield 
Screen zu öffnen. Beachten muß man dabei nur, daß 
Rahmenelemente bzw. Gadgets nicht die Farbe O0 haben, 
also nicht durchsichtig sind. 
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Die Größe des Bildes, das auf dem Bildschirm zu 
sehen ist, ist wie Sie bereits wissen, auf höchstens 
620x400 Pixel begrenzt. Die Betonung liegt dabei 
allerdings auf den Zusatz "das zu sehen ist". Wenn 
Sie mit eigenen Viewports oder mit Screens mit einer 
eigenen Bitmap arbeiten, dann kann Ihr Bild unabhän- 
gig von der Auflösung bis zu 1024x1024 Pixel groß 
sein. Welcher Teil des Bildes gerade gezeigt wird, 
können Sie durch die RxOffset und RyOffset-Felder der 
zugehörigen RasInfo-Struktur (siehe Programm 8.3) 
bestimmen. Da diese beiden Felder die Lage der Bitmap 
innerhalb des Viewports angeben, können Sie durch 
Angabe entsprecheder Werte einen beliebigen Aus- 
schnitt zur Anzeige bringen. Diese Technik ist beson- 
deres für sehr schnelles fließendes Scrolling, wie es 
etwa bei Action-Spielen benötigt wird, sehr gut 
geeignet. Das entscheidene dabei ist, daß nicht immer 
wieder nach jedem Scrollschritt das Bild am Rande 
aufgebaut werden muß. 


Dieses include-File beinhaltet Prozeduren, die 
Ihnen das Arbeiten mit den verschiedenen Sondermodi 
und miteigenen Viewports erleichtern. Die erste, 
MakeBitHMap dient dazu, eine Bitmap der Tiefe Depth, 
der Höhe Height Zeilen und der Breite Width Pixel zu 
erstellen und gibt einen Zeiger auf die BitMap- 
Struktur zurück. Dabei wird auch der für die 
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Bitplanes notwendige Speicher alloziert und in das 
Planes-Feld der Struktur eingetragen. Um eine so 
erstellte Bitmap samt Bitplanes wieder freizugeben, 
können Sie die nächste Routine: FreeBitMap benutzen. 
Ihr wird lediglich der Zeiger auf die BitMap-Struktur 
übergeben. 


Die Routine MakeDPFScr hilft Ihnen, einen Dual- 
Playfield-Screen wie in Abschnitt 7 beschrieben zu 
Öffnen. MakeDPFScreen gibt als Funktionsergebnis die 
Adresse des fertigen Dual-Playfield-Screens zurück 
und schreibt in Rastl und Rast2 die Zeiger auf die 
Rasports der beiden Playfields. Als Tiefe müssen Sie 
die Gesamttiefe, übergeben. Zum schließen eines so 
erzeugten Screens haben wir die CloseDPFScreen Proze- 
dur bereitgestellt. Zum Abschluß noch eine Übersicht 
über die 4 Routinen und ihre Parameter: 


Eine Bitmap erzeugen. 
MakeBitMap(Depth, Width, Height) 
int Depth, Width, Height; 
Eine Bitmap freigeben. 
FreeBitMap(BMap) 
struct BitMap *BMap; 
Einen Dual Playfield Screen öffnen. 
MakeDPFScr (x, y, w, h, Name, d, flags, 


font, Rastl,Rast2) 
struct RastPort *(*Rastl1), *(*Rast2); 


short X, Yı w, h, d; 
LONG flags, font; 
char *Name; 
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‚Einen Dual-Playfield Screen schließen. 


CloseDPFScreen(Screen) 
struct Screen *Screen; 


Programm 8.4 Dual-Playfield 


#include "graphics/gfx.h" 

#include "graphics/gfxbase.h" 

#include "exec/memory.h" 

#include "Display.h"#include "stdio.h" 


MakeBitMap(Depth, Width, Height) 
int Depth, Width, Height; 


struct BitMap *BMap; 
int I; 


BMap = AllocMem(sizeof(struct BitMap),NULL); 
if (BMap == NULL) 

exit(FALSE); /* Fehler */ 

/* BitHap-Struktur initialisieren */ 
InitBitMap(BMap,Depth,Width,Height); 


Width = (Width +7) /8; 


/* Speicher für alle Bitplanes der Bitmap 
allozieren */ 
for(i = 1; i <= Depth; 1++) 
if((BMap->P Teneslı -1]-AllocMem((Width*Height), 
MEMF CHIP !MEMF CLEAR)) == NULL) 
exit(FALSE); 7 /* Fehler beim allozieren 
einer Bitplane */ 
ia 
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FreeBitHap(BMap) /* Gibt den Speicher einer */ 


N 
% 


Bitmap samt Bitplanes 
/* frei 


struct BitMap *BMap; 


int i; 
if(BMap == NULL) exit(FALSE): 
/* Bitplanes freigeben */ 


for(i = 0; i < (BMap->Depth); i++) 
FreeMem(BMap->P lanes[ 7 (BHMap->BytesPerRow)* 


2 
7 


(BMap->Rows)); 


/* BitMap Struktur freigeben */ 
FreeMem(BMap,sizeof(struct BitMap)); 


MakeDPFScr (x, y, w, h, Name, d, flags, font, 
Rastl, Rast2) 


struct RastPort *(*Rastl), *(*Rast2); 


short X, Yı W, h, d; 
LONG flags, font; 
char Name; 


struct Screen *Screen; 
struct BitHap *BitMapl, *BitMap2; 
short 1,3, depth; 
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depth = d / 2+d % 2; 
printf(" depth %d \n",depth); 


/* Bitmaps für die Playfields erzeugen */ 
BitMapl = MakeBitMap(depth,w,h); 
BitMap2 = MakeBitHap(d/2,w,h); 


Screen = (struct Screen *)MakeScr(x,y,w,h,Name,depth, 
flags ! DUALPF,font,BitHMapl); 
if(Screen == NULL) /* Fehler ? */ 
exit(FALSE);: 


/* Und die Bitplanes des zweiten Playfields 
eintragen */ 

/* RastPort-Struktur initialiseren und die 
neue Bitmap eintragen */ 


*Rast2 = AllocHem(sizeof(struct RastPort),NULL); 
if (*Rast2 == NULL) 

exit(FALSE); 

InitRastPort((*Rast2)); 


(*Rast2)->BitMap = BitMap2; 

*Rastl = &(Screen->RastPort); 
Screen->ViewPort.RasInfo->Next->BitMap = BitHap2; 
ScrollIVPort(&(Screen->ViewPort)); 


return(Screen); 


CloseDPFScreen(Screen) 
struct Screen *Screen; 


{ 

FreeBitMap((Screen->ViewPort).RasInfo->Next->BitHap); 
/*FreeBitMap((Screen->ViewPort).RasInfo->BitHMap);*/ 
CloseScreen(Screen); 
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Inzwischen ist der Amiga nicht mehr der einzige er- 
schwingliche Computer mit einem 68xxx Prozessor, gra- 
fischer Fensteroberfläche und sehr guten Grafikmög- 
lichkeiten. Was ihn aber nach wie vor von der Konku- 
renz abhebt sind seine Sonderchips, von denen der 
Blitter (aus dem Englischen Block Image Transferrer) 
mit der wichtigste ist. Er ist für das flexible und 
schnelle Kopieren und Füllen von Speicherbereichen 
zuständig und somit für Grafikanwendungen unentbehr- 
lich. Ohne Blitter würden viele Operationen, die mit 
der Bildschirmausgabe zu tun haben, um Potenzen lang- 
samer sein. Wir wollen Sie in diesem Kapitel aber 
nicht nur mit den Möglichkeiten des Blitters, sondern 
auch mit seiner Bedienung bekannt machen. Dabei wer- 
den Sie am Anfang die Blitterroutinen des Systems und 
anschließend die direkte Hardwareprogrammierung ken- 
nenlernen. Bei dieser werden wir uns im wesentlichen 
auf die Bereiche beschränken, die über Systemprozedu- 
ren nicht zugänglich sind. 


Einfach nur zu sagen der Blitter diene zum Kopieren, 
ist eigentlich eine grobe Untertreibung, auch wenn 
dies eine wichtige Anwendung ist. Das gute Stück kann 
nämlich eine ganze Menge mehr als nur stupide Bits 
von einer Stelle zur anderen zu schaufeln. Wir wollen 
an dieser Stelle eine kurze Übersicht über seine Fä- 
higkeiten geben: 


(1) Extrem schnelles kopieren (über 15 Millionen Bits 
pro Sekunde) zwischen mehreren Speicherbereichen bis 
zur einer Größe von 1024x1024. 
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(2) Die Quell (source)- und Zielbereiche können durch 
eine beliebige logische Funktion verknüpft werden. 
Die logische Verknüpfung bezieht sich auf die Bits 
der beiden Speicherbereiche. So könnte man bestimmen, 
daß beim Kopieren nur dort im Zielbereich Bits ge- 
setzt werden, wo vorher weder in der Quelle noch im 
Ziel etwas gesetzt war. 


(3) Unterstützung von "rechteckigen Bereichen", d.h., 
daß die zu bearbeitenden Bereiche in Zeilen und Spal- 
ten eingeteilt werden können. Diese Eigenschaft ist 
natürlich für die Grafikprogrammierung besonderes 
nützlich. 


(4) Füllen beliebiger Flächen mit vorgegebenen Füll- 
mustern. 


(5) Zeichnen von Linien mit beliebigen Strichmustern. 


(6) Bitweises "shiften" von Speicher- oder Bildberei- 
chen. 


Die meisten dieser Möglichkeiten werden bereits so 
gut von der Systemsoftware unterstützt, daß man ohne 
direkten Hardwarezugriff auskommt. Dabei wird auch 
die Zusammenarbeit mit anderen Elementen des Grafik- 
systems wie Bitplanes und Rastports, sowie die Ein- 
bindung in das Multitasking-System berücksichtigt. 


Bekanntlich ist Nichts perfekt und so hat auch der 
Blitter eine wichtige Einschränkung. Die Speicher- 
auschnitte, die er bearbeiten kann müssen im CHIP- 
RAM liegen. Ein Versuch eine Adresse im FAST-RAM für 
eine Blitteroperation anzugeben würde im Überschrei- 
ben eines unbestimmten Bereiches des CHIP-RAMs resul- 
tieren. 
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Ein nicht ganz banales Problem beim Kopieren ist 
die Verknüpfung der Quelle(n) mit dem Ziel, die durch 
den sogenannten Minterm bestimmt wird. Theoretisch 
existieren 256 Möglichkeiten das endgültige Aussehen 
des Ziels festzulegen, wobei eine logische Verknüp- 
fung zwischen den Quellbereichen und dem Zielbereich, 
sowie Shiftoperationen stattfinden können. Neben den 
raffinierten Verknüpfungen ist natürlich auch ein 
einfaches Kopieren oder Invertieren möglich. Um eine 
dieser Möglichkeiten auszuwählen muß zuerst der dazu- 
gehörende Wert des Minterms bestimmt und an den Blit- 
ter oder eine entsprechende Prozedur übergeben wer- 
den. Wir wollen hier zuerst die Shiftoperationen 
weglassen, da sie von den Systemprozeduren nicht di- 
rekt unterstützt werden. Ein Kopiervorgang mit dem 
Blitter (kurz: ein Blitt) kann immer als eine Ver- 
knüpfung von bis zu drei Bereichen zu einem Vierten 
betrachtet werden. Dabei wird eine Kombination der 
drei logischen Grundoperationen 


AND (und) 
OR (oder) 
NOT (Negation) 


auf die korrespondierenden Bits der Quellen angewandt 
und das Ergebnis in das entsprechende Bit des Ziels 
hineingeschrieben. Zur Demonstration betrachten wir 
die drei folgenden drei Bit breiten Quellen A, B und 
C 


001 
110 
010 


m 
nu ı 


Kapitel 9 Der Blitter 


aus denen das Ziel D als 
D= A OR (B AND C) hervorgeht. 


Das Ergebnis ist dann also: 


Bit 0=00R (1 AND 0) = 0 
Bit1=00R (1ANDI1)=1 
Bit2=10R (OAND O0) =1 


und somit: 
D= 011 


Bei den Blitteroperationen, die von Systemprozedu- 
ren unterstützt werden, können immer nur zwei Bit- 
planes berücksichtigt werden. Dabei wird die Quell- 
bitmap mit der Zielbitmap verknüpft und das Ergebnis 
in die Zielbitmap geschrieben. 


Wie wird die gewünschte Verknüpfung nun mit Hilfe 
des Minterms ausgewählt? Es ist jeder Dreierkombina- 
tion von Bitwerten der drei Quellbereiche A, B und C 
ein Wert folgendermaßen zugeordnet: 


AB C NMert 
0000 
001 1 
0102 
0127124 
100 8 
1071 16 
11032 
11 2164 
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Möchte man, daß immer beim Auftreten einer bestimm- 
ten dieser Kombinationen im Zielbereich das entspre- 
chende Bit gesetzt wird, dann gibt man dem Minterm 
den aus der Tabelle abzulesenden Wert. Man kann na- 
türlich auch festlegen, daß es mehrere Möglichkeiten 
gibt, die zum Setzen des Bits führen. In diesem Fall 
wird einfach die Summe aus den entsprechenden Werten 
als Minterm benutzt. Wer mit formaler Logik nicht 
vertraut ist, wird sich vieleicht fragen, was diese 
Wertetabelle mit logischen Verknüpfungen zu tun hat. 
Angenommen man möchte, daß im Ziel D ein Bit gesetzt 
wird, wenn die Bits der drei Quellen A, Bund C an 
den dazugehörenden Stellen bestimmte Werte haben, so 
läßt sich dies als AND-Verknüpfung dieser Bits dar- 
stellen. 


Die erste Zeile der Tabelle liest man sinnvollerweise 
so: 


D = NOT A AND NOT B AND NOT C 
oder kurz 
D = "A*B*C (NOT wird durch “, AND durch * ersetzt) 


Durch OR-Verknüpfungen solcher Terme kann festge- 
legt werden, daß nicht nur eine, sondern mehrere Zei- 
len der Tabelle zum Setzen des Bits führen können. 
Mit solchen OR-Verknüpfungen der in der Tabelle auf- 
geführten Werte kann dann auch jede beliebige andere 
Verknüpfung der Bereiche dargestellt werden. Die Be- 
stimmung des Minterms erfolgt also in folgenden 3 
Schritten: 


(1) Die gewünschte logische Verknüpfung finden. 


(2) Diese als OR-Verknüpfung der Kombinatinen aus der 
Tabelle darstellen. 
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(3) Die gefundenen Werte aus der Tabelle aufsummie- 
ren. 


Um Ihnen die beiden letzten Schritte (der zweite 
kann recht schwierig sein) zu ersparen, folgt eine 
Tabelle, mit einigen wichtigen Verknüpfungen und die 
dazugehörenden Minterme. Wir haben der Übersichtlich- 
keit halber das NOT überall durch ”, das AND durch * 
und das OR durch + ersetzt. 


Funktion Wert 
D=A $fo 
D= "A sof 
D=B $cc 
D="B $33 
D=C $aa 
D= $55 
D=A*C $a0 
D=-A*rT $50 
D="A*rC $0a 
D="A*rT $05 
D=A+tB $fc 
D=”TA+B scf 
D=A+tC $fa 
D=Artl $af 
D=B+C $ee 
D=-B+C $bb 
D=A*B $c0 
D=-A*”B $30 
D="A*B $0c 
D=A*DB $03 
D=B*C $88 
D=5*” $44 
D=-”B*C $22 
D=-B*r $11 
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D=A+"B $f3 
D=A+rB $3f 
D=A+ $f5 
D=A+ $s5f 
D=B+ $dd 
D=B+”C $77 
D=A*B+ "Art $ca 


Eine der Grundanwendungen des Blitters ist das Ko- 
pieren von Bildauschnitten zwischen zwei oder auch 
innerhalb eines Rastports. Dies wird z.B. beim Ver- 
schieben, Vergrößern und Verkleinern von Fenstern 
oder bei der Ausgabe von Gadgets benötigt. Die Gra- 
phics-Library beinhaltet eine Prozedur namens Clip- 
Blit, mit-deren Hilfe Rastport-Abschnitte besonders 
einfach kopiert werden können. Die ClipBlit-Prozedur, 
die die einfachste Blitter Kopierprozedur ist, 
braucht folgende Eingaben: 


(1) Die Adresse der RastPort-Datenstrukturen der bei- 
den betroffene Rastports. Dabei darf der Quell- 
rastport nach Bedarf mit dem Zielrastport iden- 
tisch sein. 


(2) Die Koordinaten der linken oberen Ecke des zu 
kopierenden Ausschnittes innerhalb des Quellrast- 
ports. 


(3) Die Koordinaten innerhalb des Zielrastports, an 


der die linke oberen Ecke des Ausschnittes ko- 
piert werden soll. 
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(4) Die Breite und die Höhe des zu kopierenden Aus- 
schnittes. 


(5) Ein MinTerm, der die logische Verknüpfung der 
Ziel- und Quellbereiche angibt. Der Minterm wird 
bestimmt wie im vorigen Abschnitt beschrieben. 


Die CJipBlitt-Routine kann wie folgt aufgerufen 
werden, um den Bereich von der Position (xl,yl) der 
Breite dx und der Höhe dy aus dem Rastport ARastl in 
den Rastport Rast2 an die Position (x2,y2) zu kopie- 
ren: 


ClipBlit(Rastl,x1,yl,Rast2,x2,y2,dx,dy,192); 


Für den Fall, daß die Positionsangaben oder die 
Größe nicht mit den Maßen des Rastports übereinstim- 
men, wird die entsprechende Anpassung (Clipping) von 
der Routine automatisch vorgenommen, so daß kein Ab- 
sturz passieren kann/sollte. Auch die Bestimmung der 
Bitplanes, die von der Aktion betroffen werden, er- 
folgt automatisch.Die Anwendung der CTipBlit-Prozedur 
zeigt eingehend das nachfolgende Beispielprogramm. Es 
macht auf dem Workbench-Screen ein Fenster auf und 
zeichnet dort zwei Rechtecke, eins mit der Farbe 1 
und eins mit der Farbe 3; Diese werden dann anschlie- 
ßend samt der rechts von Ihnen liegenden leeren Be- 
reichen mit verschiedenen Minterms nach unten ko- 
piert. Dabei werden, um die Auswirkung der logischen 
Verknüpfungen zu zeigen, die kopierten Rechtecke 
teilweise übereinander kopiert. 
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Programm 9.1 BlittDemo 


#include"Display.h" 
#inc Iude"graphics/gfxbase.h" 
#inc lude"intuition/intuition.h" 


struct Window *Window; 
struct RastPort *Rast; 


main () 


USHORT code, i, Jj, h; 
ULONG Class; 


OpenIntui(); 
OpenGfx(); 


/* Ein Fenster auf dem Workbench-Screen öffnen */ 
Window = (struct Window *)MakeWindow(100,20,400,200, 
=‘ 0, "BlittDemo", WINDOWCLOSE [ACTIVATE, 
LOSEWINDOW, NULL); 
if(Window == NULL) /* Fehler beim öffnen ?_ */ 
exit(FALSE); 


/* Adresse des Viewports und des Rastports holen */ 
Rast = Window->RPort; 


/* Vierecke zeichnen */ 

SetAPen(Rast,1); 

RectFill(Rast,100,10,200,30); 

SetAPen(Rast,3); RectFill(Rast,125,15,175,25); 

/* Rechteck 1 mittels Blitter nach Unten kopieren 


(HinTerm = 192) */ 
CTipBlit(Rast,100,10,Rast,100,40,200,20,192): 
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/* Rechteck 1 mittels BI] itter nach Unten inverse 
kopieren (MinTerm = 48 ) * 
ClTipBlit(Rast,100,10,Rast,100,70,200,20,48); 


/* Rechteck 1 mittels Blitter nach Unten inverse 
kopieren (MinTerm = 48) */ 
ClipBlit(Rast,100,10,Rast,100,100,200,20,48); 


/* Rechtecke 1 und 3 mittels Blitter mit 3 OR 
verknüpfen (MinTerm = 224) * 
ClIipBlit(Rast,100,10,Rast,100,100,200,20 ‚224); 


SetAPen(Rast,1); 
RectFill(Rast,150,130,250,155); 


/* Rechteck 1 mittels Blitter drüber NAND kopieren 
(MinTerm = 112) */ 
CIipBlit(Rast,100,10, au u a a 


SetAPen(Rast,1); 
RectFill(Rast,150,160,250,185); 


/* Rechteck 1 mitte Is Blitter drüber NOR kopieren 
(HinTerm = 16) * 
ClipBlit(Rast,100,10,Rast,100,160,200,20,16); 


Class = WaitEvent(Window,&code); 
CloseWindow(Window); 
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Nachdem im vorigen Abschnitt ein einfaches Beispiel 
der Blitteranwendung gezeigt wurde, werden Sie nun 
die ganze Palette der Blitterkopierroutinen kennen- 
lernen. Hierbei handelt es sich um Prozeduren, die 
sich auf Bitmaps beziehen. Die durch die Graphics-Li- 
brary zur Verfügung gestellten Routinen unterstützen 
nicht nur das Kopieren von einzelnen Bitplanes son- 
dern auch der gesammten Bitmap, wobei die betroffe- 
nen Bitplanes selbstverständlich frei ausgewählt wer- 
den können. Die einfachste dieser Prozeduren heißt 
BItBitMap. 


Zu den bei ClipBlit beschriebenen Parametern kommen 
bei ihr noch zwei weitere dazu: 


(1) Eine Maske, die die betroffenen Bitplanes angibt. 

(2) Falls innerhalb einer einzigen Bitmap gearbeitet 
wird, kann zur Beschleunigung ein Zwischenpuffer 
angegeben werden. 


Logischerweise werden anstelle der Rastport-Adres- 
sen an gleicher Stelle die Adressen der entsprechen- 
den BitMap - Datenstrukturen übergeben. Die Maske, 
die die zu kopierende Bitplanes bestimmt, ist ein 
Byte in dem jedes Bit stellvertretend für eine Bit- 
plane ist. Ist dieses Bit gesetzt, so wird diese 
Bitplane von der Kopieroperation betroffen, ist es 
gelöscht so wird sie ausgelassen. Falls Sie also nur 
die Planes 1 und 3 (oder deren Auschnitte) transfe- 
rieren wollen, dann müssen Sie als Maske den Wert 
2 Hoch 1 + 2 Hoch 3 = 2 + 8 = 10 benutzen. 
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Um den Bereich von der Position (x1,yl) der Breite 
dx und der Höhe dy aus der Bitmap Bitl in die Bitmap 
Bit2 an die Position (x2,y2) zu kopieren genügt der 
folgende Aufruf: 


BltBitMap(Bitl,x1,y1,Bit2,x2,y2,dx,dy,192,Mask,NULL); 


Die NULL als letzter Parameter bedeutet, daß kein 
Puffer zur Verfügung gestellt wird. 


Es ist auch möglich, Bildaten aus einer Bitmap in 
einen Rastport zu transferieren. Dazu gibt es die 
BlItBitMapRastPort-Prozedur. Sie wird ähnlich wie 
ClipBlit aufgerufen. Der Unterschied besteht darin, 
daß der erste Parameter ein Adreßzeiger auf eine 
Bitmap ist ‚auf die sich auch die ersten beiden Para- 
meter beziehen. Die Angabe der zu kopierenden Bit- 
planes kann mit Hilfe des Mask-Feldes der RastPort- 
Datenstruktur erfolgen. Für den dort stehenden Wert 
gilt das gleiche wie für den Mask Parameter von 
BltBitMap. Durch die Beinflussung dieses Feldes kann 
übrigens auch die Auswahl der Bitmaps bei Verwendung 
der C/ipBlit-Prozedur erfolgen. 


Die letzte Prozedur, die wir in diesem Abschnitt 
vorstellen wollen ist eigentlich nur eine Abwandlun- 
gen von BItBitMapRastPort. Sie heißt BItMaskBitMap- 
RastPort und besitzt einen zusätzlichen Parameter, 
der einen Adreßzeiger auf eine "Schablonenbitmap" 
ist. Diese Schablone muß die Maße des Ziels haben und 
bestimmt welche Punkte durch den Blitt beinflußt wer- 
den. Alle Punkte die in der Schablonenbitmap nicht 
gesetzt sind, wirken bei der Blitteroperation als 
Sperren, d.h. die korrespondierenden Punkte des Ziels 
werden von der Blitteroperation nicht betroffen. Als 
Beispiel betrachten wir wieder zwei "Minibitmaps" A 
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und B, sowie eine Schablonenbitmap C mit je einer 
Bitplane, je einer Zeile und 3 Spalten. Wenn sie vor 
der Operation so ausehen: 


A = 110 
B = 001 
C = 010 


dann wird nach dem Blitt in B 
011 


stehen. Es wurde also nur das Bit 1, das in der Scha- 
blonenbitplane gesetzt ist kopiert. Die Bits O0 und 2 
blieben unverändert, da die Schablone dort "undurch- 
sichtig" ist. In dem nachfolgenden Programm finden 
Sie alle der oben besprochenen Prozeduren wieder. Es 
öffnet zwei Fenster auf dem Workbench-Screen und 
zeichnet in das obere, kleinere ein Viereck der Farbe 
3. Dieser wird dann mit verschiedenen Blitterprozedu- 
ren (BItBitMapRastPort, BltBitMap und BItMaskBitMap- 
RastPort) und verschiedener Bitplanesauswahl mehrmals 
in das untere Fenster kopiert. Vor der Anwendung der 
BltMaskBitMapRastPort- Prozedur wird zunächst die 
"Schablonenbitmapplane" mit der drunter definierten 
MakeMaskP lane-Prozedur erzeugt und mit horizontalen 
Streifen gefüllt. Daher wird dann auch das kopierte 
Rechteck gestreift erscheinen. 


Programm 9.2 BitMapBlitt 


#inc Tude"exec/memory.h" 

#inc lude"Display.h" 

#inc Iude"graphics/gfxbase.h" 
#inc Iude"intuition/intuition.h" 
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/* Koordinaten der linken oberen Ecke des ersten 
Fensters */ 

#define Winx 200 

#define Winy 10 


/* Koordinaten der linken oberen Ecke des zweiten 
Fensters */ 

#define Win2x 100 

#define Win2y 60 


struct Window *Window, *Window2; 
struct RastPort *Rast, *Rast2; 
struct BitMap Bit, *Bit2; 


char *Hask; 
LONG Len; 


main (){ 
USHORT code, i, J, h; 
ULONG Class; 


OpenIntui(); 
OpenGfx(); 


/* Ein Fenster auf dem Workbench-Screen öffnen */ 

Window = (struct Window *)HakeWindow(Winx,Winy,239, 
40,0,0, "Window 1" ,WINDOWCLOSE JACTIVATE, 
CLOSEWINDOW, NULL); 


if(Window == MÜLL) /* Fehler beim Öffnen ?_ */ 
exit(FALSE); 


/* Adresse des Rastports und der Bitmap holen */ 


Rast = Window->RPort; 
Bit = Rast->BitHap; 
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Window2 = (struct Window *)MakeWindow(Win2x,Win2y, 
439,190,0,0, "Window 2",ACTIVATE, 
CLOSEWINDOW, NULL); 


if(Window2 == NULL) /* Fehler beim Öffnen ?_ */ 
exit(FALSE); 


/* Adresse des Rastports und der Bitmap holen */ 
Rast2 = Window2->RPort; 
Bit2 Rast2->BitMap; 


/* Viereck im ersten Fenster zeichnen */ 
SetAPen(Rast,3); 
RectFill(Rast,70,15,180,35); 


/* Aus der Bitmap des ersten Fensters in den 
Rastport des zweiten blitten */ 

BItBitMapRastPort(Bit2,70+Winx,10+Winy,Rast2,50, 
20,100,20,192); 


Rast2->Mask = 
BIEBitNapRastPort(Bit2, 70+Winx,10+Winy,Rast2,160, 
20,100,20,192); 


Rast2->Mask = 2; 
BItBitMapRastPort(Bit2, 70+Winx,10+Winy,Rast2,270, 
20,100,20,192); 


/* Aus der Bitmap des ersten Fensters in die Bitmap 
des zweiten blitten */ 
BItBitMap(Bit,70+Winx,10+Winy,Bit2,50+Win2x,60+Win 
2y,100,20,192,3,NULL); 


BItBitMap(Bit,70+Winx,10+Winy,Bit2,160+Win2x,60+Win 
2y,100,20,192,1,NULL); 


BItBitMap(Bit,70+Winx,10+Winy,Bit2,270+Win2x,60+Win 
2y,100, 20,192,2,NULL); 
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/* Aus der Bitmap des ersten Fensters in die Bitmap 
des zweiten blitten */ 

/* Dabei wird eine Blittmaske benutzt */ 

Mask = MakeMaskPlane(Bit); 

Rast2->Mask = 3; 

BItMaskBitMapRastPort(Bit,70+Winx,10+Winy,Rast2,50, 
100,100,20,192,Mask); 

Rast2->Mask = 1; 

BItMaskBitMapRastPort(Bit,70+Winx,10+Winy,Rast2,160, 
100,100,20,192,Hask); 

Rast2->Mask = 2; 

BI tHaskBitHapRastPort( Bit,70+Winx,10+Winy,Rast2,270, 
100,100,20,192,Mask); 


FreeMem(Mask, (Bit->BytesPerRow) * (Bit->Rows)); 
Class= WaitEvent(Window,&code); CloseWindow(Window); 
CloseWindow(Window2); 


MakeMaskP lane(BMap) 


/* Diese Prozedur erzeugt eine Schablonenbitplane */ 
/* Sie wird mit dünnen horizontalen Streifen 

gefüllt */ 
struct BitMap *BMap; 


char *Mem; 
LONG Len, End; 


Mem = NULL; 
Len = (BMap->BytesPerRow) * (BMap->Rows); 
Mem = Al TocHem(Len, MEMF_ CHIP !MEHF _ CLEAR); 
if(Mem == NULL) 

exit(FALSE): 

for(End = a + Mem; Mem < End; ++Mem) 
*(Mem++) = 

return{: Be en n) ? 
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:5. Nach ehr Blitterrautinen. 


Neben den reinen Kopierroutinen, die bis jetzt vor- 
gestellt wurden, gibt es in der Graphics-Library noch 
drei weitere nütztliche Prozeduren. Dies sind: 


(1) BltClear 
(2) BItPattern 
(3) BItTemplate 


Die erste dient zum Löschen (also mit Nullen fül- 
len) eines Speicherbereiches. Sie wird als: 


BItClear(MemPtr,Bytes,Flags) 


aufgerufen, wobei MemPtr ein Adreßzeiger auf den 
Speicherbereich und Bytes die Größe des zu löschenden 
Bereiches ist. Der dritte Parameter, Flags gibt wei- 
tere Informationen zum Löschmodus an. Bit 1 gibt hier 
an, ob das Programm gestoppt werden soll, bis die 0- 
peration beendet ist (Bit gesetzt) oder nicht (Bit 
gelöscht). Das zweite Bit entscheidet darüber, ob der 
Speicherbereich als "normaler" Speicher (Bit ge- 
löscht), oder als eine Bitplane (Bit gesetzt) inter- 
pretiert werden soll. Im ersten Fall wird Bytes ganz 
normal als Anzahl der zu löschenden Bytes interpre- 
tiert und der Bereich wird gelöscht. Im zweiten Fall 
werden allerdings die oberen 16 Bits von Bytes als 
die Anzahl der zu löschenden Zeilen, und die unteren 
als die Anzahl der zu löschenden Bytes pro Zeile an- 
gesehen. So können beliebige Bildausschnitte sehr 
einfach gelöscht werden. 
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Die zweite Prozedur, BItPattern ist eine Abwandlung 
der BItMaskBitMapRastPort-Prozedur. Sie hat das Auf- 
rufformat: 


BltPattern(Rast,Mask,x1,y1l,x2,y2,Bytes) 


Dabei wird der Bereich des Rastports Aast mit der 
linken oberen Ecke bei (x1,y1) und der rechten unte- 
ren Ecke bei (x2,y2) mit dem Muster gefüllt, auf das 
Mask zeigt. Das Muster wird in Form einer "Schablo- 
nenbitplane" gespeichert. Diese muß mindestens genau- 
so groß wie das zu füllende Rechteck sein. Seine 
Breite in Bytes wird in Bytes angegeben. Um z.B. ein 
Rechteck der Breite 10 Pixel zu füllen, muB in Bytes 
2 angegeben werde, was bedeutet, daß die Schablone 2 
Byte breit ist. Schablonen dürfen nur ganze Vielfache 
von 8, also 8, 16, 24 etc. Pixel breit sein und mü- 
ssen selbstverständlich in CHIP-RAM liegen. 


Die letzte der Routinen, die wir in diesem Ab- 
schnitt beschreiben wollen, B/tTemplate, dient dazu, 
in "gepackten Arrays" gespeicherte Daten auszulesen. 
Solche "gepackten Arrays" haben Sie schon im Zusam- 
menhang mit der Speicherung der Bilddaten der Fonts 
im Kapitel 7 kennengelernt. Zur Errinnerung: 


Es werden Daten für einzelne Bilder zeilenweise 
(also alle erste Zeilen hintereinander, dann alle 
zweiten Zeilen hintereinander usw.) gespeichert, wo- 
bei jedes Zeichen eine andere Breite in Punkten haben 
kann. So können also das eine mal in einem Wort drei 
Daten einer Bildzeile von 2 Zeichen haben (wenn z.B. 
jedes 8 Bit breit ist) und das andere mal von 2.5 
Zeichen (z.B. 2 a 6 Bit und die Hälfte von einem 8 
Bit breitem). Um jetzt ein in so gestalteten Font- 
bilddaten gespeichertes Zeichen der Breite Width und 
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der Höhe Height an der Position (x,y) des Rastports 
Rast auszugeben muß B/tTemplate wie folgt aufgerufen 
werden: 


BItTemplate(Source,BitPos,Mod,Rast,x,y,Width,Height); 


In Source muß die Anfangsadresse der Bildaten ste- 
hen. Der Parameter BitPos gibt die Anfangsposition 
des auszugebenden Zeichens innerhalb der Arrays in 
Bits an. 


Die Anzahl der Bytes, die überspringen werden müssen 


um von einer Zeile zur anderen zu gelangen, müssen 
Sie in Mod angeben. 
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Der Amiga ist bekanntlich ein Multitaskingrechner, 
es laufen also gleichzeitig mehrere Programme ab. Das 
bedeutet auch, daß es durchaus möglich ist, daß meh- 
rere Tasks gleichzeitig auf die Idee kommen, den 
Blitter zu benutzen. Da dieser aber nur sequentiell 
arbeitet, gibt es im Betriebssystem Mechanismen, die 
solche Konflikte beseitigen und einem Programm den 
alleinigen Zugriff auf den Blitter sichern. Die ein- 
fachste Alternative ist hier die Anwendung der Para- 
meterlosen WattBlit-, OwnBlitter- und DisownßBlitter- 
Prozeduren. Die erste dient dazu, solange zu warten, 
bis der Blitter frei ist. Der Aufruf der OwnBlitter- 
Routine bewirkt, daß das aufrufende Programm den 
Blitter in Besitz nimmt und bis zur Freigabe uneinge- 
schränkt benutzten kann. 


Die Freigabe erfolgt mit DisownBlitt. Es ist für 
den Amiga lebenswichtig, nach Beendigung des Blitter- 
zugriffs diesen wieder freizugeben, da ohne Blitter 
die gesamte Bildschirmausgabe und einige andere Funk- 
tionen nicht ablaufen können. Vor dem Aufruf der Sy- 
stemprozeduren, die bis jetzt vorgestellt wurden, 
braucht man sich normalerweise den Blitter nicht noch 
extra mittels OwnBlitter zu sichern, da diese dies 
intern erledigen. Will man aber, daß eine Reihe von 
Blitterbefehlen ohne zeitliche Verzögerung hinterein- 
ander ausgeführt wird, dann muß die gesamte Sequenz 
derart aufgebaut sein: 


WaitBlit(); 
OwnBlitter(); 
<Blitterroutinen> 
DisownBlitter(); 
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Dadurch wird verhindert, daß zwischen den Aufrufen 
der einzelnen Blitterroutinen ihr Programm den Blit- 
ter verliert. Unentbehrlich ist die Beschaffung des 
Blitters natürlich bei den direkten Hardwarezugrif- 
fen, wie sie in späteren Abschnitten vorgestellt wer- 
den. 


Bei der Hardwareprogrammierung bedient man sich 
auch oft einer anderen Methode, den Blitter für sein 
Programm zu sichern. Sie hat den Vorteil, daß solche 
Anfragen Vorrang vor OwnBlitter haben und außerdem 
eine Synchronisierung des Vorgangs mit dem Elektro- 
nenstrahl, der das Bild auf dem Monitor zeichnet, 
möglich ist. 


So kann man z.B. den Bildschirmspeicher modifizie- 
ren, während der Strahl sich außerhalb des Bild- 
schirms befindet. Die Grundlage dieses Verfahrens ist 
die Datenstruktur b/tnode. Im System existiert eine 
Liste solcher Strukturen. Jede von ihnen beschreibt 
einen sogerannten "Blitterjob", der nichts weiter als 
eine Liste von Blitteroperationen ist. Die Blitter- 
jobs werden in der Reihenfolge der bItnode-Strukturen 
in der Liste abgearbeitet. Durch einen Aufruf von 
OBlit können Sie eine solche Struktur, die Ihren 
eigenen Blitterjob beinhaltet, an das Ende dieser 
Liste einfügen. Bei der Initialisierung von b/tnode 
muß folgendes getan werden: 


(1) Die Adresse des Codes der Funktion, die die Blit- 
teroperationen ausführt, muß in das Feld function 
eingetragen werden. Dieser Code sollte eigentlich 
so in Assembler geschrieben sein, daß er sowohl 
im User als auch in Superwisermodus (Prozessormo- 
di des MC68000) läuft. Der Code wird solange auf- 
gerufen und der Blitter nicht freigegeben,bis die 
Funktion in dem Datenregister DO des MC68000 eine 
0 zurückgibt. Da "C" bei einem return-Aufruf das 
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Ergebnis ebenfalls in DO zurückgibt, kann not- 
falls auch eine "C"-Funktion verwendet werden. 


(2) Die Adresse einer "Cleanup"-Routine, die nach der 
letzten Blitteroperation ausgeführt wird, oder 
NULL wird in das cleanup-Feld geschrieben. So ist 
es möglich am Ende des Blitterjobs, ihn wieder in 
die Jobschleife einzufügen. 


(3) Je nachdem ob eine "Cleanup"-Routine aufgerufen 
werden soll oder nicht, muß der Wert CLEANUP 
($040) oder 0 in das stat-Feld hineingeschrieben 
werden. 


Beim Aufruf von QBTitt wird als einziger Parameter 
die Adresse einer so initialisierten Struktur überge- 
ben. Wenn Sie wollen, daß mit der Ausführung ihres 
Blitterjobs gewartet wird, bis eine bestimmte Posi- 
tion des Elektronenstrahl auf dem Bildschirm erreicht 
wird, dann müssen Sie sich der QBSBlit Prozedur be- 
dienen. Sie wird genauso wie QBlitt benutzt. Sie müs- 
sen allerdings bei der Initialisierung der b/tnode- 
Struktur das beamsync Feld mit der Nummer der Zeile 
belegen, bei deren Durchlauf ihr Blitterjob ausge- 
führt werden soll. Auf Grund des Multitaskings 
(dieses Liste ist global für alle Tasks) kann es 
hierbei allerdings zu zeitlichen Konflikten kommen. 
Es kann nämlich sein, daß ein anderer Benutzer den 
Blitter solange behält, daß Ihre Position verpaßt 
wird. 


Es ist wichtig, daß die Funktion, deren Adresse im 
function-Feld von bItnode eingetragen wird, keine der 
Blitterroutinen der Graphics-Library aufruft. Diese 
Prozeduren warten nämlich intern auf den Blitter, den 
sie allerdings nicht bekommen können, weil ihn ihre 
Funktion besitzt. Ein Beispiel für die Anwendung der 
bltnode-Strukturen finden Sie im nächsten Abschnitt. 
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Die Blitterroutinen sind zwar sehr flexibel und be- 
quem, um jedoch den Blitter optimal auszunutzen, wird 
man ihm direkt durch Registerzugriffe ansteuern. Dies 
ermöglicht ein Arbeiten ohne auf die Graphics- oder 
Intuition-Library zugreifen zu müssen, wie man es 
z.B. bei der Programmierung eines Vorspanns machen 
muß. Wir werden deswegen in diesem Abschnitt den 
Hardwareaufbau des Blitters und seine Funktionsweise 
kurz beschreiben. Der Blitter ist kein eigenständiger 
Chip. Er ist in den Sonderchip AGNUS des Amiga inte- 
griert. Daher liegen auch seine Register, wie auch 
alle Register der Sonderchips, bei $dff000 plus einen 
registerspezifischen Offset. Um sie von "C" aus anzu- 
sprechen benutzt man am besten die Custom-Datenstruk- 
tur. Die Komponenten dieser Datenstruktur entsprechen 
sowohl in-der Reihenfolge, als auch in ihrer jeweili- 
gen Länge den Registern der Customchips. Wenn man al- 
so eine solche Struktur an der Adresse $dff000 ver- 
einbart, dann kann man einfach über ihre Komponenten 
auf die Register zugreifen, ohne sich um die Offsets 
Gedanken machen zu müssen. Sie werden diese Funkti- 
onsweise in dem Beispielprogramm des nächsten Ab- 
schnitts sehen. 


Nun zu den Registern des Blitters. Er besitzt acht 
16-Bit Adreßregister, die paarweise zu 4 32-Bit A- 
dreßregistern organisiert sind, vier Moduloregister 
(je eins zu einem Adreßregister), zwei Controllregi- 
ster, vier Datenregister, zwei Maskenregister und ein 
Größenregister, das gleichzeitig zur Aktivierung ei- 
nes Blitts dient. Um eine Blitteroperation durchzu- 
führen, muß folgendes getan werden: 
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(1) Die Adressen der drei Quellen und des Ziels müs- 
sen in die Adressregister eingetragen werden. 
Dies sind die Regsiter: 


BLTAPTH Quelle A Hi 
BLTAPTL Quelle A Lo 


BLTBPTH Quelle BHi 
BLTBPTL Quelle BLo 


BLTCPTH Quelle C Hi 
BLTCPTL Quelle C Lo 
BLTDPTH Ziel Hi 
BLTDPTL Ziel Lo 


Wie Sie sehen, müssen Sie die Adressen in High- und 
Lowteil aufteilen. Dies ergäbe bei der Adresse 
srrrf0000 


srrff 
$0000 


Hi = 

Lo = 

(2) Die Modulowerte für die 3 Quellen und das Ziel in 
die Modu loregister holen: 


BLTAMOD Modu lowert für Quelle A 
BLTBMOD Modu lowert für Quelle B 
BLTCMOD Modu lowert für Quelle C 
BLTDMOD Modulowert für Ziel 


Der Modulowert beinhaltet die Anzahl der Worte in 
einer Zeile. Er wird nach dem Bearbeiten einer Zeile 
zu der Adresse addiert, um mit der nächsten fortfah- 
ren zu können. 


(3) Durch Setzen der Bits 0 bis 7 des Controlregi- 


sters BLTCONO die gewünschte logische Verknüpfung 
wählen. Sie müssen diese Bits einfach auf einen 
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entsprechenden kWert setzen, wie bereits in Ab- 
schnitt 2 besprochen. 


(4) Die restlichen Bits des Controllregisters BLTCONO 
initialiseren. Es sind die Bits 8 bis 11 für das 
Einschalten der DMA-Kanäle für die Quellen A bis 
C und des Ziels zuständig, sowie die Bits 12 bis 
15 für die Verschiebung der Quelle A (siehe An- 
hang E). 


(5) Durch entsprechedes initialiseren der Bits 0 bis 
4 des BLTCONI Controllregisters den Modus auswäh- 
len. Zum "normalen" kopieren müssen diese Bits 
alle gelöscht sein (siehe Anhang E). 


(6) Die restlichen Bits des Controllregisters BLTCONO 
initialiseren. Es sind die Bits 12 bis 15 für die 
Verschiebung der Quelle A zuständig (siehe Anhang 
E). Die Bits 5 bis 11 haben keine Bedeutung. 


(7) Die Größe des zu bearbeitenden Bereiches in das 
BLTSIZE-Register schreiben. Die unteren 6 Bits 
(Bits O0 bis 5) geben die Breite in Wörtern (Ein 
Wort = 2 Bytes = 16 Bit), die oberen 10 (Bits 6 
bis 15) die Höhe in Zeilen an. Eine Höhe von 0 
wird dabei als 1024 interpetiert. Der Wert dieses 
Registers muß also (Höhe AND $3ff)*64 + (Breite 
$3f) sein. Das BLTSIZE-Register muß als letztes 
beschrieben werden, da ein Schreibzugriff auf 
dieses Register die Blitteroperation startet. Wir 
haben in diesem Abschnitt nur vom Kopieren von 
Zeilen gesprochen. Wenn einen nicht in Zeilen 
eingeteilter Bereich des Speichers kopiert werden 
soll, dann müssen Sie die Modulowerte einfach auf 
1 setzen. 


Ein einfaches Beispiel für die hardwaremäßige Blit- 
terprogrammierung finden Sie im nachfolgenden Bei- 
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spielprogramm. Es bindet mittels QBlitt einen einfa- 
chen Kopierjob in die Jobliste ein. 


#inc ITude"hardware/custom.h" 
#include"hardware/blit.h" 

#inc lude"Display.h" 

#inc Iude"graphics/gfxbase.h" 
#inc lude"intuition/intuition.h" 


#define Winx 100 
#define Winy 20 


struct Window *Window; 
struct RastPort *Rast; 
struct BitMap *BitMap; 
struct Custom *Custom; 


struct bltnode myNode; 
long Blitt(); 


main () 


USHORT code, i, J, h; 
ULONG Class; 


OpenIntui(); 
OpenGfx(); 


/* Ein Fenster auf dem Workbench-Screen öffnen */ 

Window = (struct Window *)MakeWindow(Winx,Winy,400, 
200,0,0, "BlittDemo" ,WINDOWCLOSE [ACTIVATE, 
CLOSEWINDOW, NULL); 
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if(Window == NULL) /* Fehler beim Öffnen ?_ */ 
exit(FALSE); 


/* Adresse des Viewports und des Rastports holen */ 
Rast = Window->RPort; 
BitMap = Rast->BitMap; 


/* Anfangsadresse der Customchips laden */ 
Custom = Oxdff000; 


myNode. function = Blitt; 
myNode.cleanup = NULL; 
myNode.stat = 0; 
OBlit(&myNode); 


/* Alles schließen */ 
Class = WaitEvent(Window,&code); 
CloseWindow(Window) ; 


} 


long Blitt() 


{ 
Custom->bltalmn = Oxffff; 


Custom->bltafmn = Oxffff; 
Custom->blItamod = BitMap->BytesPerRow; 
Custom->blItbmod = BitMap->BytesPerRow; 
Custom->bltcmod = BitHMap->BytesPerRow; 
Custom->bltdmod = BitMap->BytesPerRow; 
Custom->bltapt = BitMap->Planes[0]; 
Custom->bltbpt = BitMap->Planes[0]; 
/*+ Winy *(640/16) + Winx/16; */ 

Custom->bltcpt = BitMap->Planes[0]; 
Custom->bltdpt = BitMap->Planes[1]; 
Custom->bltconO = 192+SRCA+SRCB+DEST; 


224 


Kapitel 9 Der Blitter 


Custom->bltconl = 0; 
Custom->bltsize = 266; 

whi le(Custom->dmacon && 1>>14); 
return(0); 


; 


int Blitt() 


BlittLine(); 
return(0); 


int fuck(b) 


short b; 
{ short a; 


a = b; 


return(0); 


Bis jetzt wurde beschrieben, wie eine Standardko- 
pieroperation durchgeführt werden kann. Ein großer 
Nachteil bei dieser Operation besteht darin, daß nur 
ganze Wörter kopiert werden können. Nun weiß man aber 
von den Blitterroutinen der Graphics-Library, daß es 
möglich ist, Blitteroperationen auf Bereiche anzuwen- 
den, die weder an Wortgrenzen liegen, noch eine durch 
16 teilbare Breite haben. Dies wird durch zwei noch 
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nicht erklärte Fähigkeiten des Blitters ermöglicht: 
Shiften und Maskieren. Schon im vorigen Abschnitt 
wurde gesagt, daß die oberen Bits der beiden Con- 
trollregister die Verschiebung der Quelle A bzw. B in 
Bits angeben. Das heißt, daß jedes Wort, das aus der 
entsprechenden Quelle geholt wird, um die in diesen 
Bits angegebene Anzahl von Stellen (0 bis 15) nach 
rechts verschoben wird. Dabei werden die Bits,die bei 
einem Wort nach rechts "hinausgeschoben" werden, an 
die durch Verschieben freiwerdenden Anfangsstellen 
des nächsten Wortes der Zeile geschrieben. Dadurch 
kann eine gesamte Zeile geschiftet werden. In die 
freigewordenen Bits des ersten Wortes einer Zeile 
werden Nullen hineingeschiftet. Eine aus den zwei 
folgenden Worten: 


1111000011111111 0101010101000000 


bestehende Zeile wird nach einem Shift um 3 Bits wie 
folgt ausehen: 


0001111000011111 1110101010101000 


Auf diese Art kann ein Bild an eine Stelle kopiert 
werden, die nicht an einer Wortgrenze liegt. Wenn Sie 
einen Auschnitt an eine Position, die 4 Bits rechts 
von einer Wortgrenze liegt, kopieren wollen, dann 
brauchen Sie die Suellein) nur um diese 4 Bits zu 
verschieben. Dazu müssen Sie zu dem entsprechenden 
Controllregister (BLTCONO für Quelle A, BLTCONI für 
Quelle B) die Zahl 


4* 2 Hoch 11 
addieren. Ein Problem bei dieser Methode wird deut- 
lich wenn man daran denkt, daß beim Shiften um n Bits 


am Anfang einer Zeile n Nullen dazukommen, während 
die letzten n Bits verlorengehen. Man kann die letz- 
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ten Bits selbstverständlich retten, indem man ein 
Wort mehr kopiert, dabei kopiert man aber einige un- 
erwünschte Bits mit. 


Die Lösung dieses Problem bietet das Maskieren. 
Hinter diesem zunächst mysteriös anmutenden Wort ver- 
birgt sich die Möglichkeit, für das erste und das 
letzte Wort einer Zeile 1 - Wort Masken anzugeben, 
die bestimmen welche Bits kopiert werden und welche 
nicht. Somit kann man die beim Shiften entstandenen 
Nullen im ersten Wort und die durch Kopieren eines 
zusätzlichen Wortes dazugekommenen unerwünschten Bits 
beseitigen. Die Maske für das erste Wort wird in 
das BLTAFWM-, die für das letzte in das BLTALWM- 
Register hineingeschrieben. 


Es werden dann nur die Bits des ersten bzw. letzten 
Wortes kopiert, die in der Maske gesetzt sind. Um al- 
so hineingeschobene Nullen am Anfang zu beseitigen, 
muß man nur die n ersten Bits im BLTAFWM-Register auf 
Null, die restlichen auf 1 setzen. Analog können die 
uerwünschten Bits in dem letzen Wort durch Setzen der 
letzten Bits von BLTALWM auf Null ausgeblendet wer- 
den. 


Das Maskieren kann übrigens auch benutzt werden, um 
ein Auschnitt, der ausserhalb einer Wortgrenze an- 
fängt bzw. aufhört, zu kopieren. Man rundet den Be- 
reich einfach auf Wortgrenzen auf und blendet das un- 
erwünschte durch Maskieren aus. Leider kann eine Mas- 
ke nur für die Quelle A angegeben werden. Es können 
aber trotzdem alle Operationen mit Maskieren durchge- 
führt werden. Notfalls muß man halt mehrmals kopie- 
ren. 


Ein Problem über das bis jetzt noch nicht gespro- 


chen wurde, ist das Kopieren von sich überlappenden 
Bereichen. Solange Sie abwärts kopieren also z.B die 
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Zeilen 12 bis 17 einer Bitplane in die Zeilen 10 bis 
15 der gleiche Bitplane übertragen wollen, läuft al- 
les reibungslos. Zuerst wird die Zeile 12 in die Zei- 
le 10, dann die 13 in die 11, dann 14 in 12 usw. ko- 
piert. Wenn Sie allerdings probieren umgekehrt vorzu- 
gehen, gibt es Schwierigkeiten. Bei Kopieren der Zei- 
len 10 bis 15 in die Zeilen 12 bis 17 wird zuerst die 
Zeile 10 in die Zeile 12 dann die 11 in die 13 usw. 
kopiert. Dabei wird aber der Inhalt der Zeilen 12 bis 
15 zerstört, bevor er umkopiert werden kann! Um auch 
solche Situationen. zu meistern, kann durch Setzen des 
Bits 1 des BLTCONI-Registers die Richtung des Kopier- 
vorgangs umgekehrt werden (dieser Modus wird Descen- 
ding-Mode genannt). Wenn Sie dieses Bit setzen, dann 
müssen Sie statt der Anfangsadresse der Quellen und 
des Ziels die Endadressen angeben. Der Blitter ko- 
piert dann von Hinten, in unserem Beispiel also zu- 
erst die Zeile 15 in die Zeile 17, dann 14 in 16 dann 
13 in 15 usw. 


Eine Fähigkeit des Blitters, die die Blitterrouti- 
nen des Systems nicht offenbaren, ist das Zeichnen 
von Linien. Durch Setzen des LINE-Bits (Bit 1) des 
Controllregisters BLTCONI kann der Linienmodus einge- 
schaltet werden. Die Angabe der gewünschten Anfangs- 
und Endkoordinaten der Linie ist leider nicht ganz 
einfach. Der Blitter beschreibt eine Linie, die vom 
Punkt (xl,yl) zum Punkt (x2,y2) geht, durch folgende 
Parameter: 
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(1) Oktant: 

Dieser Parameter ordnet die Linie auf Grund ihrer 
Richtung einem der acht gleicher Kreisteile zu. Die 
Einteilung des Kreises in Oktanten sieht in etwa so 
aus: 


Die Zahlen geben die Oktantennummern an. Um den 
richtigen Oktanten für Ihre Linie zu finden, können 
Sie sich der nachfolgenden Tabelle bedienen. Neben 
der Linienkoordinaten werden dort die Werte dx und dy 
benutzt ,die die Differenzen der x- bzw. y-Koordinaten 
der Anfangs- und Endpunkte sind: Sie werden als 


dx = abs(x1 - x2) 

dy = abs(yl - y2) 

berechnet. 

Oktant | Voraussetzungen 
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(2) Die Steigung 

Zur Berechnung der Steigung werden wieder die bei 
der Oktantenbestimmung berechneten Werte dx und dy 
benötigt. Zuerst müssen der kleinere und der größere 
der beiden Werte bestimmt werden. Wir bezeichnen den 
kleineren mit kd und den größeren mit gd. Es ist also 


kd = minimum(dx,dy) 
gd = maximum(dx,dy) 


Mit diesen Bezeichnern wird die Steigung durch drei 
Ausdrucke festgelegt: 


(1) 2*kd 
(2) 2*kd-gd 
(3) 2*kd -2*gd 


Zusätzlich muß noch geprüft werden ob 2*kd größer 
als gd ist 


(3) Die Anfangsadresse des Startpunktes 

Gemeint ist hier die Adresse im Bildspeicher, an der 
das Wort mit dem ersten Punkt der Linie liegt. Wenn 
die Bitplane, in der die Linie gezeichnet wird, in 
Plane gespeichert ist und die Bitplane Lines Zeilen a 
Bytes Bytes hat, dann berechnet sich die gesuchte An- 
fangsadresse durch: 


Plane + (Lines -yl-1)*Bytes + 2*(x1/16) 


(4) Die Position des Startpunktes im Wort 
Wenn der Anfangspunkt der Linie nicht an einer 
Wortgrenze liegt, muß noch der Abstand von dem Wort- 
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anfang angegeben werden. Wenn die x-Koordinate z.B. 
bei 17 liegt, dann beträgt der Abstand 1, da bei 16 
ein neues Wort anfängt. 


Nachdem Sie nun den Verlauf der Linie auf diese Art 
Blittergerecht formuliert haben, können Sie die Blit- 
teroperation anlaufen lassen. Die Blitterregister 
müssen dazu folgendermaßen initialisiert werden: 


(1) Den Wert $8000 in BLTADAT schreiben. 


(2) Die Maske für das Zeichnen der Linie in BLTBDAT 
schreiben. Für eine durchgehende Linie ist dies 
srfff. 


(3) Die Register BLTAFWM und BLTALWM auf $ffff set- 
zen. 


(4) Die Moduloregister folgendermaßen initialiseren: 


BLTAMOD = 2*kd - 2*gd 
BLTBMOD = 2*kd 

BLTCHOD = Die Breite der gesamten Bitplane in Bytes 
BLTDMOD = Die Breite der gesamten Bitplane in Bytes 


(5) In die Quellen- und das Zielregister folgendes 
schreiben: 


BLTAPT = 2*kd - gd 
BLTBPT = unbenutzt 
BLTCPT = Die Adresse des ersten Pixels der Linie. 
BLTDPT = Die Adresse des ersten Pixels der Linie. 


(6) In die Bits 15 bis 12 des BLTCONO-Registers die 
Position des Anfangspunktes innerhalb des Wortes 
(also x1 modulo 15) schreiben. 
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(7) Bits 8,9,11 des BLTCONO-Regsiters auf 1, Bit 10 
auf 0 setzen. 


(8) Den Wert $CA für die logische Verknüpfung AB+AC 
in die unteren 8 Bits (Bits 0 bis 7) von BLTCONO 
schreiben. 


(9) Die Bits des BLTCON1 Registers folgendermaßen 
setzen: 


Bits 12 bis 15: Hier die Stelle angeben, an der das 
in BLTBDAT bestimmte Muster in der 
Linie anfangen soll, angeben 
(normalerweise 0). 


Bits 7 bis 11: Unbenutzt. 


Bit 6 = 1 falls 2*%kd gd, = O0 sonst. 


Bit 5 = 0 (unbenutzt) 


Bits 2 bis 4 = Diese Bits geben die Nummer des Qua- 
dranten an. Jedem Quadranten wird ein Wert zugeord- 
net, den diese Bits annehmen müssen. Hier die Zuord- 
nungstabelle: 


Oktant | Wert | 


a a 
FE a 
2 13 4 
3 1 7 ' 
4,159 ' 
a a 
a a 
A FE 
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Bitl1 =]; 


Bit 0 = 1 (Linienmodus einschalten) 


(10) Die unteren 6 Bits (Bits 0 bis 5) von BLTSIZE 
auf 2, die oberen (Bit 6 bis 15) auf gd+1 set- 
zen. 


Auch beim Zeichnen von Linien ist darauf zu achten, 
daß das BLTSIZE-Register, daß die Operation startet, 
als letztes beschrieben wird. 


Die letzte noch nicht besprochenen Anwendung des 
Blitters ist das Füllen von Flächen. Das Füllen kann 
ohne Zeitverlust in den Kopiervorgang integriert wer- 
den. Die Daten, die aus den drei Quellen gemäß der 
angegebenen Verknüpfungsvorschrift erzeugt und in 
BLTDDAT geschrieben werden, werden vor der UÜbertra- 
gung in den Zielbereich entsprechend behandelt. Zum 
Füllen braucht der Blitter eine durch 1 - Bit breite 
durchgehende Linien seitlich bergrenzte Fläche. Diese 
könnte beispielsweise diese Form haben: 


00100000000000001000 


00100001000100001000 
00100000000000001000 
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Die Fülloperation wird durch setzen des EFE (Bit 4) 
oder des IFE-Bits (Bit 3) des BLTCONI Registers ein- 
geschaltet. Alle anderen Einstellungen gleichen den 
beim Kopieren.Je nach dem welches der beiden Bits ge- 
setzt ist, werden die Begrenzungsbits mit ins Bild 
übernommen (IFE = Inclusive Fill Enable) oder wegge- 
lassen (EFE = Exclusive Fill Enable). Im EFE Modus 
würde die Beispielfläche nach dem Füllen so aussehen: 


00011111111111110000 
00011110000011110000 
00011111111111110000 


Wenn man dagegen den IFE-Modus benutzt, dann blei- 
ben die Begrenzungen bestehen. Das Ergebnis sieht 
dann So aus: 


00111111111111111000 
00111111000111111000 
001111111112311111000 


Falls man man möchte, daß nicht innerhalb der Be- 
grenzung, sondern ausserhalb gefüllt wird, dann kann 
muß man zusätzlich noch das FCI (Fill Carry In) Bit 
(Bit 2) des BLTCONI-Register setzen. Im IFE-Modus er- 
gibt sich dann für die Beispielfläche nach dem Fül- 
len: 


11100000000000001111 
11100001111100001111 
11100000000000001111 


Eine Besonderheit des Füllens liegt darin, daß er 
nur im Descending-Mode (also Bit 1 von BLTCON = 1 
siehe Abschnitt 8) funktioniert. 
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Am Anfang dieses Abschnitts wurde bereits gesagt, 
daß das Füllen während einer Kopieroperation erledigt 
wird. Wenn Sie also einen Bereich Füllen wollen, dann 
müssen Sie ihn auf sich selbst kopieren und dabei den 
gewünschten Füllmodus einschalten. 
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KAPITEL 10 


237 


Kapitel 10 Der Copper 


In diesem Kapitel wollen wir den zweiten Graphikco- 
prozessor des Amiga vorstellen. Während der Blitter 
diverse Dienstleistungen übernimmt, ohne die eine 
schnelle Graphikdarstellung nicht denkbar wäre, ist 
der Copper für die Koordinierung des Aufbaus des Dis- 
plays zuständigt. Er ist dafür verantwortlich, daß 
zum richtigen Zeitpunkt (der Zeitpunkt wird durch die 
Position des Rasterelektronenstrahls bestimmt) die 
richtigen Werte in den richtigen Regsitern stehen, so 
daß an jeder Bildschirmposition die Daten angezeigt 
werden, die auch dorthin gehören. Alle Angaben, die 
bezüglich der Anordnung und Art der gerade angezeig- 
ten Viewports gemacht werden, werden vom System in 
Listen von Copperanweisungen übersetzt. Somit braucht 
sich der Hauptprozessor um die Bildausgabe nicht zu 
kümmern und ist frei für andere Aufgaben. 


Der Copper ist ein eigenständiger Prozessor, der 
Programme in ihm verständlicher Sprache ausführen 
kann. Allerdings ist er in seinem Befehlsatz sehr be- 
schränkt. Er verfügt lediglich über drei Befehle: 
WAIT, MOVE und SKIP, sowie sieben Register. 


Außerdem ist der Adreßbereich, auf den der Copper 
zugreifen kann, auf die Register der Customchips be- 
schränkt. So wenig dies ist, für den Zweck den der 
Copper zu erfüllen hat reicht es völlig aus. Die Be- 
einf lussung der Custom-Chipregister ist alles was nö- 
tig ist, um das Ausgabebild zu steuern. Zusätzlich 
kann der Copper den Blitter benutzen (seine Register 
liegen auf den Customchips) und somit indirekt auf 
den gesamten CHIP-Speicher zugreifen. 
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Es ist weiterhin möglich, daß der Copper einen In- 
terrupt beim 68000 auslöst und so den CPU in seine 
Dienste stellt. 


Das Copperprogramm befindet sich in der sogenannten 
Copperliste. Sie ist ein Speicherbereich in dem Cop- 
peranweiungen aneinandergereiht sind und dessen 
Adresse in einem der Copperregister befindet. 


Nun zu den drei Copperbefehlen. Sie haben folgende 
Funktionen: 


(1) MOVE 

Dieser Befehl erlaubt es einen bestimmten Wert in 
eines der Register der Customchips zu schreiben. Nor- 
malerweise sind die Register $00 bis $20 vom Copper- 
zugriff ausgeschlossen. Durch Setzen eines bestimmten 
Bits in einem der Copperregister sind für ihn aber 
auch die Register $10 bis $20 erreichbar. 


(2) WAIT 
Der WAIT-Befehl wartet darauf, daß der Elektronen- 
strahl eine bestimmte Position erreicht hat. 


(3) SKIP 

Ein SKIP-Befehl veranlaßt den Copper dazu, den 
nachfolgenden Befehl zu überspringen, wenn die aktu- 
elle Position des Strahls größer oder gleich ist, als 
die bei dem Befehl angegebenen Werte. Mit seiner Hil- 
fe läßt sich durch Manipulation der Copperregister 
(Der Copper kann ja auch auf seine eigenen Register 
zugreifen) eine bedingte Verzweigung realisieren. 
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Die Copperlisten bestehen normalerweise aus einer 
Abfolge von Blöcken der Form 


WAIT 
<Mehrere Move-Anwe isungen> 


Sinnvollerweise sollten diese Anweisungsblöcke in 
der Reihenfolge der bei den WAIT-Befehlen angegebenen 
Elektronenstrahlpositionen geordnet sein. Wäre dies 
nicht der Fall, dann könnte es sein, daß bestimmte 
Anweisungen nie zur Ausführung kommen. 


Aus vorigen Kapiteln ist Ihnen bekannt, daß die 
Bildanzeige aus Viewports besteht, von denen jeder 
eine andere-Auf lösung, Farbzusammensetzung, und Größe 
haben und seine Bilddaten in einer eigenen Bitmap la- 
gern kann.Diese Viewports werden zu einer View (siehe 
Kapitel 8) zusammengefaßt. Nun stellt sich die Frage, 
wie aus diesen getrennt gespeicherten Bausteinen das 
Bild des Gesamtdisplays entsteht und welche Rolle da- 
bei der Copper spielt. Um diesen Vorgang zu verste- 
hen, muß man zuerst etwas über die Grafikdarstellung 
auf Hardwareebene wissen. Die Erzeugung des Bildsig- 
nals aus Daten die in einem Speicherbereich liegen, 
wird bekanntlich von den Customchips übernommen. Die- 
se missen aber die Speicheradressen kennen, wo sich 
die darzustellenden Daten befinden (der Amiga verfügt 
nicht wie einige andere Computer über einen festen 
Bildschirmspeicher) und wie sie dargestellt werden 
sollen, also welche Farben, Auflösung etc. benutzt 
werden sollen. Zu diesem Zweck verfügen sie über eine 
Gruppe von Registern, die große Ähnlichkeit mit eini- 
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gen aus vorherigen Kapiteln bekannten Strukturen der 
Graphics-Library haben. Der wesentliche Unterschied 
besteht darin, daß jede Veränderung dieser Register 
auch eine sofortige Veränderung des Ausgabebildes be- 
wirkt. Die in den Strukturen der Graphics- und der 
Intuition-Librarary gespeicherten Daten gewinnen erst 
dadurch Bedeutung, daß Sie im richtigen Augenblick in 
die entsprechenden Register übertragen werden. Wir 
wollen hier einige wichtige auflisten und beschrei- 
ben. Wir geben dabei für die Assemblerprogrammierung 
die relative Lage der Register zu $dff000 (siehe Ka- 
pitel 9)und für "C" den Namen der entsprechenden Kon- 
ponente der Custom-Datenstruktur. Diese Datenstruktur 
muß selbstverständlich wie im Kapitel 9 beschrieben, 
an der Speicherstelle $dff000 liegen, damit ein Zu- 
griff möglich wird. Wenn ein "x" im Namen steht, dann 
bedeutet dies, daß es mehrere solche Register gibt, 
die an dieser Position durchnummeriert sind. 


(1) Die Bitplane Pointer Register (BPLxPT) 


Diese Register entsprechen den Adreßzeigern auf 
die einzelnen Bitplanes, die sich in jedem BitMap Da- 
tensatz befinden. Sie beinhalten die Adresse der Bit- 
planes, die momentan angezeigt werden. Es gibt sechs 
BPLxPT-Register, so wie es maximal sechs Bitplanes 
geben kann. Sie liegen ab $EO im Speicher, können nur 
beschrieben werden und sind je vier Bytes Lang (zwei 
Bytes für Adresse High-Byte und zwei Byte für Adresse 
LowByte). Von "C" aus sind sie als Custom.bplItp[x] 
(x = Nummer der Plane 1 bis 6) ansprechbar. 


(2) Die Playfield Controlregister (BPLCONx) 


Es gibt drei dieser Register (0 bis 2). Sie sind je 
zwei Byte lang und liegen bei $100. Von "C" sind sie 
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durch Custom.bplconO, Custom.bplconl und Custom.- 
bplcon2 zu erreichen. Besonderes interessant sind 
folgende Bits des BPLCONO-Registers: 


Bit 15 - Schaltet den HiRes-Modus ein. 

Bits 12 bis 14 - Geben die Anzahl der benutzen Bit- 
planes an. 

Bit 11 - Schaltet den HAM-Modus ein. 

Bit 10 - Schaltet den Dual-Playfield-Modus 
ein. 

Bit 2 - Schaltet den Interlace-Modus ein. 


Dieses Register entspricht also dem 
ViewMode-Feld der ViewPort-Daten- 
struktur. 


(3) Die Color Register (COLORxx) 

Diese Register entsprechen der zu jedem Viewport 
gehörenden ColorMap. Jedes dieser 32 Register (0 bis 
31) ist 16 Bit lang und beinhaltet die RGB Zusammen- 
setzung der'*momentan angezeigten Farben. Diese Regi- 
ster liegen bei $180. In der Custom Struktur sind sie 
als color[32] definiert. 


Den direkten Zugriff auf eines dieser Register, das 
BPLPTI-Register demonstriert das nachfolgende Pro- 
gramm. Es schreibt den Adreßzeiger auf die Bitplane O0 
des aktiven Screen in dieses Register. Dadurch wird 
der Hardware vorgetäuscht, daß die Bitplanes 0 und 1 
des Screens identisch seien, und alles auf dem Screen 
erscheint in der Farbe 3. 


Programm 10.1 CustomPoke 
#inc Iude"exec/types.h" 


#inc lude"hardware/Custom.h" 
#inc lude"Display.h" 
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struct Custom *Custom; 
APTR Plane; 


ma in({) 


long i; 
OpenIntui(); 


/* Zeiger auf Bitplane 0 des aktiven Screens 
holen */ 
Plane= IntuitionBase->ActiveScreen->BitMap.Planes[0]; 


Custom = Oxdff000; /* Basisadresse der 
Customchips 7 
for(i = 0: i < 100000; i++) 


/* Zeiger auf die Bitplane 0 des aktiven Screens 
als Hardwarebitplane 1 */ 


Custom->bpIpt[1] = Plane; 


Was ist nun hierbei die Aufgabe des Coppers? Nun, 
sobald der Elektronenstrahl eine Position erreicht, 
an der ein neuer Viewport (z.B. ein Screen der zur 
Hälfte nach unten geschoben wurde) anfängt, erreicht 
wird, schreibt der Copper die entsprechenden Werte 
in die Customchip-Register. Dazu gehören unter ande- 
rem die Adreßzeiger auf die Bitplanes mit den Bildda- 
ten und der Inhalt der Farbregister. Beim nächsten 
Durchlauf des Strahls werden dann wieder die Werte 
des oben liegenden Vieports eingetragen. 


Ein letztes nützliches Register das wir hier erwäh- 
nen wollen, ist das INTREG-Register (liegt bei $9c 
von "C" als Custom->intereq ansprechbar). Durch Set- 
zen des vierten Bits dieses Registers kann der Copper 
einen Prozessorinterrupt auslösen. 
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Wie bereits gesagt, werden sämtliche Informationen, 
die das Aussehen einer View betreffen, also die An- 
ordnung und Form der Viewports, sowie eventuell vor- 
handene Sprites, in Form von Copperlisten kodiert. 
Jeder Viewport besitzt in der ViewPort-Datenstruktur 
in den Komponenten DspIns, SprIns und C/IrIns Adreß- 
zeiger auf CopList-Strukturen. Jede solche Daten- 
struktur beschreibt eine eigene Copperliste. Die er- 
ste (in DspIns für Display Instructions) beinhaltet 
Befehle, die zum Aufbau der Anzeige des Viewports 
benötigt werden. Diese Copperliste wird beim MakeV- 
Port-Befehl aus den Daten in den ViewPort- und Ras- 
Info-Datenstrukturen erzeugt. Aus diesem Grund be- 
wirken nur Veränderungen in einer der beiden Struk- 
turen ohne einen MakeVPort-Aufruf keine Anderung des 
Ausgabebildes. Die beiden anderen werden für Sprites 
benötigt. Zusätztlich gibt es in der UCopIns-Kompo- 
nente einen Adreßzeiger auf eine UCopList-Datenstruk- 
tur, die die sogennante User Copperliste beinhaltet. 
Mit Hilfe dieser Datenstruktur kann eine weitere, 
benutzerdefinierte Copperliste in die Viewportliste 
eingefügt werden. Alle diese Copperlisten sind wie 
verlangt nach Elektronenstrahlpositionen geordnet. 


Da die Viewports nur als Teile einer View angezeigt 
werden können, reicht es nicht, daß jeder Viewport 
seine eigenen Copperlisten hat. Die Einzelnen Listen 
müssen, bevor sie die Bildausgabe beinflussen können, 
zu einer weiteren geordneten Einheit verbunden wer- 
den. 


Diese Aufgabe erledigt der MrgCop-Befehl. Er arbei- 
tet sich durch alle Viewports einer View durch und 
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verknüpft dann geordnet alle ihre Copperlisten. In 
der View-Struktur selbst gibt es auch zwei Felder, in 
die eine Copperliste eingetragen wird: LofCpreList 
und ShfCprList. In dem ersten Feld befindet sich im- 
mer ein Zeiger auf eine Copperliste. Das zweite Feld 
wird nur im Interlace-Modus benötigt und enthält die 
Copperliste, die beim zweiten Durchlauf, also für die 
geraden Zeilen, benötigt wird. 


Der letzte Schritt bei der Erzeugung des Ausgabe- 
bildes ist das Eintragen der Copperliste der gerade 
aktiven View in das entsprechende Hardwareregister 
des Coppers. Diese Aufgabe wird von der LoadView-Pro- 
zedur erledigt. 


Nun sind Sie in der Lage das im Kapitel 8 beschrie- 
bene Verfahren zur Erstellung einer eigenen View und 
auch einige andere Dinge, die mit der Bildausgabe zu- 
sammenhängen, genau zu verstehen. Der nächste Schritt 
besteht darin, aktiv in das Geschehen einzugreifen 
und die Anzeige mit Hilfe eines eigenen Programms zu 
verändern. Die beste Möglichkeit hierzu besteht da- 
rin, eine eigene Copperliste zu erstellen und sie an 
die aktive View anzubinden. Den Zeiger auf die aktive 
View holt man sich auf die bekannte Art über die &Gfx- 
Base-Datenstruktur. Die Anbindung erfolgt einfach 
durch Eintragen einer VUVCopList-Datenstruktur in das 
UCopIns-Feld eines der Viewports dieser View. Diese 
Datenstruktur muB selbstverständlich vorher mit der 
gewünschten Copperliste initialisiert werden, denn es 
macht wenig Sinn eine leere Copperliste anzubinden. 
Die Initialiserung erfolgt in folgenden Schritten: 
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(1) Zuerst muß die Datenstruktur selbst erzeugt wer- 
den. Sie können sie nicht einfach als Variable 
vereinbaren, denn sie muß im CHIP-RAM liegen. Die 
Allozierung kann so ausehen: 


CopList = AllocMem(sizeof(struct UCopList),MEMF CHIP 
!MEMF CLEAR !MEHF PUBLIC); 


(2) Die Befehlssequenz muß in die Struktur eingetra- 
gen werden. Zu diesem Zweck gibt es in "graphics/ 
gfxmacros.h" folgende zwei Makros: CWAIT und C- 
MOVE. Das erste dient dazu, den WAIT-Befehl des 
Coppers in die Liste einzutragen. Als Parameter 
werden ihm die Adresse der User-Copperliste über- 
geben, sowie die Zeile und Spalte, auf die gewar- 
tet werden soll. Um also in die Liste List den 
WAIT-Befeh]l auf Zeile 10 Spalte 0 einzutragen, 
genügt folgender Aufruf: 


CWAIT(List,10,0); 


Dem zweiten Makro, das einen MOVE-Befeh] der Liste 
hinzufügt, wird ebenfalls als erstes Argument die A- 
dresse der User-Copperliste übergeben. Die beiden 
anderen Argumente geben dann die Adresse des betrof- 
fenen Customchipregisters und den einzutragenden 16 
Bit Wert an. Der Befehl 


CMOVE(List,Custom->color[1],0) 
bewirkt das Eintragen des MOVE-Befehls, der eine Null 


in das Colorregister 0 schreibt, in die UserCopperli- 
ste List. 
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(3) Die Copperliste muß mit Hilfe des CEND-Makros ab- 
geschlossen werden. Es wird mit der Adresse der 
Liste als einziger Parameter aufgerufen. 


Nach dem Eintragen der fertigen Liste in den View- 
port müssen nur noch die Prozeduren MakeVPort, Mrg- 
Cop, und LoadView in dieser Reihenfolge aufgerufen 
werden, um die Anderung zur Anzeige zu bringen. 


In dem nachfolgenden Beispielprogramm haben wir auf 
die soeben beschriebene Weise eine Copperliste, die 
den von diversen PD-Demos bekannten "Rainbow"-Effekt 
erzeugt,an die aktive View herangehängt. Sie bewirkt, 
daß zwischen den Zeilen 10 und 200 nach jeweils 10 
Zeilen der Hintegrund eine um eine RGB-Stufe dunkle- 
ren Blauwert annimmt. Es werden also auf dem Work- 
benchscreen, der eine Tiefe von zwei hat, 20 Farben 
gleichzeitig angezeigt werden. Es wird dazu einfach 
in der neuen User-Copperliste mit der Zeile 20 begin- 
nend auf jede nächste durch zehn Teilbare Zeile mit 
WAIT gewartet und dann der neue Farbenwert in das 
COLOROO-Hardwareregister eingetragen. Die entspre- 
chende Copperliste kann einfach in einer for- 
Schleife erstellt werden. 


Damit Sie nach dem Starten dieses Programms auch 
wieder die normale Anzeige bekommen, wird nach kurzen 
Warten die neue Copperliste entfernt. 


Programm 10.2 Stripes 


#include"exec/types.h" 

#inc Iude"exec/memory.h" 

#inc lude"hardware/Custom.h" 
#include"Display.h" 

#inc lude"graphics/gfxmacros.h" 
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struct Custom *Custom; 

struct View *View; 

struct ViewPort *VPort; 

struct UCopList *CopList, *oldCopList; 
main() 


{ 


long i; 


OpenGfx(); 
OpenIntui(); 


/* Zeiger auf die aktive View holen */ 
View = GfxBase->ActiView; 


/* Zeiger auf den Viewport des aktiven Screens 
lesen */ 
VPort = &(IntuitionBase->ActiveScreen->ViewPort); 


/* Basisadresse der Customchips */ 
Custom = Oxdff000; 


/* Copperliste Allozieren */ 


CopList = AllocMem(sizeof(struct UCopList),MEMF 
CHIP !MEHF CLEAR!MEMF PUBLIC); 
if (CopList == NULL) u u 
exit(FALSE); 


/* Eigene Copperliste mit den Systemmakros 
erstellen */ 
for(i = 10; i <= 200; i += 10) 


{ 
CWAIT(CopList,i,0); /* Warten bis der 
Strahl zehn Zeilen weiter ist */ 
CMOVE (CopL ist,Custom->color[0],i/10); 
} /* Farbregister 0 verändern */ 
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CEND(CopList); /* Copperliste abschließen */ 
/* Copperliste in den Viewport einbinden */ 


oldCopList = VPort->UCopIns; /* Alte User 
Copperliste merken 74 


VPort->UCopIns = CopList; /* Neue eintragen 
+ 


MakeVPort(View,VPort); /* Und in die 
globalen Liste einbinden */ 

KrgCop(View); 

LoadView(View); 


for(i = 0; i < 500000; i++); /* Abwarten */ 


/* Die Alte Copperliste wieder einbinden */ 
VPort->UCopIns = oldCopList; 


/* Alte Kopperlist wieder eintragen #f. 
MakeVPort(View,VPort); 


/* Und in die globalen Liste einbinden */ 
MrgCop(View); 
LoadView(View); 


FreeMem(CopList,sizeof(struct UCopList)); 
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Zum Schluß dieses Kapitels wollen wir für die, die 
direkt mit der Copperhardware arbeiten möchten, die 
Copperregister, sowie das dazugehörige Befehlsformat 
beschreiben. Der Copper besitzt die folgenden sieben 
Register: 


COPILCH, COPILCL ($80 in "C" Custom->copllc) 


Diese Register beinhalten die 18 Bit-Adresse der 
ersten Copperliste. 


COP2LCH, COP2LCL ($84 in "C" Custom->cop21c) 


Diese Register beinhalten die 18 Bit-Adresse der 
zweiten Copperliste. 


COPJMP1 ($88 in "C" Custom->copjmpl) 


Durch Beschreiben dieses Registers wird der Copper 
veranlaßt, die in COPILCI stehende Adresse als die A- 
dresse des nächsten auszuführenden Befehls zu über- 
nehmen. 


COPJMP2 ($88 in "C" Custom->copjmp2) 
Durch Beschreiben dieses Registers wird der Copper 
veranlaßt, die in COPILC2 stehende Adresse als die 


Adresse des nächsten auszuführenden Befehls zu über- 
nehmen. 


COPCON ($02e in "C" Custom->copcon) 
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Dies ist das Kontrollregister des Coppers. Es ent- 
hält nur ein einziges Bit (Bit 0). Dieses Bit gibt 
an, ob der Copper auch auf die Register $10 bis $1f 
zugreifen kann (Bit O0 gesetzt) oder nicht (Bit 0 ge- 
löscht). 


Wie der obigen Registerbeschreibung zu entnehmen 
ist, muß man, um eine neue Copperliste anzuhängen, 
ihre Adresse in das COPILC-Register (unter diesem Na- 
men fassen wir die COPILCH- und COPILCL-Register zu- 
sammen) schreiben und dann auf das COPJMP1-Register 
zugreifen, damit der Copper dieses Adresse übernimmt. 
Die COP2LC - und COPJYMP2-Register werden für bedingte 
Sprünge mit Hilfe des Skip-Befehls gebraucht. Die in 
COPJMP1 stehende Adresse wird jedes mal übernommen, 
wenn der Rasterstrahl die Position (0,0) erreicht. 


Auf diese Art wird die Copperliste bei jedem Durch- 
lauf des Elektronenstrahls aufs neue durchlaufen, so 
daß das gewünschte Anzeigebild permanent aufrechter- 
halten wird. Da es keinen Stopbefehl für den Copper 
gibt, muß am Ende einer jeden Liste ein WAIT auf eine 
unmögliche Strahlpostion stehen. Dadurch wird gewähr- 
leistet, daß an dieser Stelle gewartet wird, bis beim 
Erreichen der Position (0,0) die Abarbeitung der Cop- 
perliste von Vorne beginnt. Ein solcher Befehl ist 
ZB; 


WAIT(SFF,$SFF) 


da es keine Horizontalen Positionen, die größer als 
$E2 sind, gibt. Alles was Sie jetzt noch wissen müs- 
sen, um eigene Copperlisten zu erstellen, ist das Be- 
fehlsformat. Alle drei Copperbefehle bestehen aus 
zwei Prozessorworten. Die Bits 0 der beiden Worte 
bestimmen folgendermaßen, um welchen Befehl es sich 
handelt: 
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Bit 0 Wort 1 ! Bit O0 Wort 2 ! Befehl 


Wie Sie sehen wird der MOVE-Befeh] 
erste Wort bestimmt. Die Bedeutung 


Der Copper 


allein durch das 
der restlichen 


Bits der beiden Befehlsworte für die einzelnen Befeh- 


le können Sie der nachfolgenden Aufli 


MOVE 


09 
ul o 
er 
oO 
I 


Bits 1 bis 8 - Die Adresse (Nummer) 
sters. 


stung entnehmen: 


Immer 1 (Befehlserkennung). 


des Zielregi- 


Bits 9 bis 15 - Unbenutzt, auf O0 setzen. 


Wort 2 


Bits 0 bis 15 - Das Datenwort, das in das Zielregi- 
ster geschrieben wird. 


WAIT 


Wort 1 


Bit 0 - Immer 0 (Befehlserkennung) 


Bits 1 bis 7 - Angabe der horizontal 


en Strahlposi- 


tion. 

Bits 8 bis 15 - Angabe der vertikalen Strahlpositi- 
on. 

Wort _2 

Bit 0 - Immer 0 (Befehlserkennung) 


Bits 1 bis 7_ - Maske für die horizontale Strahlposi- 
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tion. 
Bits 8 bis 14 - Maske für die vertikale Strahlpositi- 


on. 

Bit 15 - Blitter Finish Disable Bit 

SKIP 

Wort 1 

Bit 0 - Immer 1 (Befehlserkennung) 

Bits 1 bis 7 _ - Angabe der horizontalen Strahlposi- 
tion 

Bits 8 bis 15 - Angabe der vertikalen Strahlpositi- 
on. 

Wort _2 

Bit 0 - Immer 1 (Befehlserkennung) 

Bits 1 bis 7 - Maske für die horizontale Strahlposi- 
tion. 

Bits 8 bis 14 - Maske für die vertikale Strahlpositi- 
on. 

Bit 15 - Blitter Finish Disable Bit 


Die Bedeutung der Maskenbits in den zweiten Be- 
fehlswörtern der Befehle WAIT und SKIP bedarf noch 
einer Erläuterung: Sie geben an, welche Bits in der 
Angabe der horizontalen bzw. vertikalen Strahlposi- 
tion für den Vergleich mit den beim Befehl angegebe- 
nen Werten von Bedeutung sind. Es werden nur die Bits 
getestet, die in der Maske gesetzt sind. Für alle an- 
deren wird der Test als TRUE angenommen. Setzt man 
z.B. sowohl die Maske der vertikalen Position als 
auch die Position selbst auf $08, dann trifft auf 
diese Angabe jede achte Position zu. Wenn man, wie es 
meistens der Fall ist, nur an einer bestimmten verti- 
kalen Position interessiert ist, dann sollte man eine 
Null in der Maske für die horizontale Position ange- 
ben. 
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Zur Verdeutlichung des Umgangs mit den Befehlen be- 
trachten Sie die folgende Copperliste: 


WAIT($0f,O0) 
MOVE($180,$ffff) 
WAIT(ff, fe) 


Diese Liste bringt den Copper dazu, jeweils beim 
Erreichen der Zeile 50 in das Farbregister 0 die Far- 
be Weiss zu schreiben. Die letzte WAIT-Anweisung 
dient nur dem Abschluß der Liste durch Warten auf 
eine unmögliche Position. In Hexzahlen umgesetzt wür- 
de diese Liste so aussehen: 


sofo1 $ffoo /* WAIT($0F,O) 27. 
$0180 $ffff /* MOVE($180,$ffff) */ 
srrff Sfffe /*WAIT(Ff, fe) “): 


Zum Schluß noch ein Paar Worte zum SKIP-Befehl. Da- 
zu betrachten Sie das Konstrukt der Form: 


MOVE (COPILC,Marke)Marke: 
<Anwe isungen> 
SKIP(Position,Maske) 
MOVE(COPJMP1,0) 
MOVE(COPILC,AlterWert) 
<Rest der Liste> 


Solange die in Skip angegebene Position nicht er- 
reicht ist, erfolgt ein Schreibzugriff auf das COP- 
1LC-Register, wodurch der Copper zu der Adresse Marke 
verzweigt (Sie wurde am Anfang ja in COPILC hineinge- 
schrieben). 


Dadurch werden die Anweisungen zwischen der Marke 
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und dem SKIP-Befehl in einer Schleife immer wieder 
ausgeführt. Erst wenn die angegebene Position über- 
schritten wurde, wird der Zugriff auf COPJMPI1 unter- 
lassen. Es erfolgt also kein Rücksprung und die Abar- 
beitung der Liste wird sequentiell fortgesetzt. 


Falls wie in diesem Beispiel der Wert in COPILC 
während der Abarbeitung der Copperliste verändert 
wurde, dann ist unbedingt darauf zu achten, daß der 
alte Wert vor dem Erreichen des Endes der Copperliste 
wiederhergestellt wird. Dies ist notwendig, damit der 
Copper den Anfang der Liste wieder anspringen kann. 
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In diesem Kapitel wollen wir Ihnen möglichst viele 
konkrete Beispiele der "einfachen" Grafikprogrammie- 
rung geben. Dabei kommt es uns nicht so sehr auf die 
Vollständigkeit der Behandlung der einzelnen Themen 
an, sondern wir möchten Ihnen vielmehr möglichst vie- 
le verschiedene Beispiele geben. Daher wird am Ende 
eines jeden Abschnittes eine Rubrik "Tips" stehen, in 
denen wir Ihnen noch zahlreiche Anregungen zu dem 
jeweiligen Thema geben werden. Nachdem wir Ihnen 
also die Grundzüge einer jeweiligen Grafikprogram- 
miertechnik vor Augen geführt haben, animieren die 
nachfolgenden Tips Sie hoffentlich dazu, selbst Hand 
an die Algorithmen zu legen. Dabei sind diese Tips 
wirklich nur als Anregung aufzufassen und sollten 
Ihre eigene Kreativität in keiner Weise beeinträch- 
tigen. 


Will man mit möglichst geringem Programmieraufwand 
bereits grafische Effekte auf dem Bildschirm erzeu- 
gen, so eignen sich dazu besonders die FOR-Schlaufen 
in Verbindung mit dem Line, Polygon, oder Circle-Be- 
fehl. Bei dieser Technik liegt oft mehr Programmier- 
arbeit in der "Definition" der Arbeitsumgebung, also 
öffnen eines Screens, eines Fensters und ganz wich- 
tig: das Zuweisen der Farbregister. Gerade auf dem 
Amiga sollte man bei der Grafikprogrammierung, bis 
auf wenige Ausnahmen, sich mit weniger als 32 Farben 
nicht zufriedengeben. So stehen Ihnen also in diesem 
Fall 32 aus 4096 Möglichkeiten der Farbregisterbele- 
gung zur Verfügung. 


Doch gerade mit der Farbauswahl kann man den 
"Betrachtungswert" einer Grafik vervielfachen, so daß 


258 


Kapitel 11 Graphikerzeugung 1 


es sich lohnt, wenn Sie sich dafür genügend Zeit neh- 
men. 


Die einfachste Art eine Schlaufe mit einem Grafik- 
befehl zu belegen, ist das direkte Einsetzen der 
Schlaufenzählvariable in einen Grafikbefehl, so daß 
also zum Beispiel der Radius einer Folge von Kreisen 
verändert wird. Die so entstehenden Bilder erscheinen 
aber meißt schon sehr bald langweilig, da die Verän- 
derungen ja grundsätzlich linear sind. Wesentlich in- 
teressanter wird es, wenn man stattdessen einen 
Funktionswert der Schlaufenzählvariable einsetzt. 


Optisch geeignet sind hier besonders die Sinus- und 
die Kosinusfunktion, aber auch mit den Exponential-, 
Logarithmus- und Exponentialfunktionen, sowie deren 
beliebigen Kombination lassen sich abwechs lungsreiche 
Effekte erzielen. Wir beschränken uns zunächst einmal 
auf den Sinus und Kosinus, da Sie gegenüber anderen 
Funktionen einen gewaltigen Vorteil haben: Ganz egal 
was für Werte man einsetzt, wie groß oder wie klein 
sie auch sein mögen, der Funktionswert liegt immer 
zwischen -1 und +1. Dies erspart uns Kopfzerbrechen 
darüber ‚mit was wir den erhaltenen Funktionswert mul- 
tiplizieren müssen, damit ein Wert herauskommt, der 
auch im Gültigkeitsbereich unseres Fensters liegt. 
Gehen wir von einem Fenster der Breite 320 Pixels und 
der Höhe 230 Pixels (dann ist oben noch Platz für die 
Titelbalken des Screens und Fensters), so multipli- 
zieren wir lediglich die Funktionswerte mit der hal- 
ben Höhe, bzw. Breite und addieren anschließend den 
gleichen Wert noch einmal. Nach der Multiplikation 
erhalten wir also Werte zwischen -160 und +160 (-115 
und +115), nach der nochmaligen Addition Werte zwi- 
schen 0 und 320 (0 und 230). Jetzt können wir losle- 
gen und in einer Schlaufe Werte in die soeben neu de- 
finierten Funktionen einsetzen. Das Ergebnis können 
wir direkt als x- und y-Koordinate auf den Bildschirm 
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werfen. Eine sich über den Bildschirm schwingend 
fortbewegende Linie erhalten wir durch den folgenden 
Algorithmus: 


Linie (a,b) 
float a,b; 
/* a im Bereich von 0.0 und 360.0 und b>a */ 


fx = 75; /* Beliebiger x-Schwingungsfaktor */ 
fy = 200; /* Beliebiger y-Schwingungsfaktor */ 
Calculate(a); /* Initialisierung von x und y */ 
for (n =a; /* Schlaufe: von a */ 
n<b; /* bis b */ 
n+=1); /* n inkrementieren */ 
{Calculate (n); /* neues Koordinatenpaar 
berechnen */ 
Line(xold,yold,x,y,farbe); /* Verbinden mit 
den alten Werten */ 
xold = x; /* Zwischenspeichern der 
aktuellen 47. 
yold = y; /* x- und y-Werte */ 


} 


Calculate (i) 
/* Berechnen der aktuellen Koordinaten */ 
floot i; 


{ x = sin(i*pi/fx) * 160.0 + 160.0; /* Berechne 
x-Koordinate */ 
y = cos(i*pi/fy) * 115.0 + 115.0; | 
/* Berechne 
} y-Koordinate */ 
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Bild 11.1 - Ausgabe des Algorithmus "Linie". 


m) — am 
ea 


F ” » x / 

Um ein funktionsfähiges Programm zu erhalten, muß 
natürlich die Arbeitsumgebung entsprechend gesetzt, 
vor allem aber ein (GZZ-)Fenster der Größe 320/230 
geöffnet sein. Die so entstehende, schwingende Linie 
können Sie variieren, indem Sie den Schwingungsfakto- 
ren einen Wert zwischen jeweils 30 und 270 zuordnen. 
In unserem Programm Linie, daß Sie auf der Begleit- 
diskette finden, werden weiterhin auch den jeweiligen 


Kurvenabschnitten zyklisch die verschiedenen, ge- 
setzten Farben zugewiesen. 


Wir können die entstehenden Grafiken verschönern, 
indem wir der Linie einen Partner geben, der zwar 
ähnlich, aber doch völlig unabhängig schwingt. Dazu 
führen wir zwei weitere Schwingungsfaktoren fxl und 
fyl ein, sowie 2 weitere xy-Koordinatenpaare. So er- 
halten wir also zwei Kurven, die wir zusätzlich noch 
Schrittweise miteinander verbinden. 
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Linien (a,b) 


/* a im Bereich von 0.0 und 360.0 und b > a */ 
float a,b; 
{ 


fx = 75; 

/* Beliebiger x-Schwingungsfaktor */ 

fy = 200; 

/* Beliebiger y-Schwingungsfaktor */ 

fxl = 100; 

/* zweites Schwingungsfaktorpaar */ 

fyl = 130; 

Calculate(a); 

/* Initialisierung der ersten 2 Koordinatenpaare 

for{ n= a; /* Schlaufe: von a 
n<b, * bis b 
n+=1; /* Schlaufenzähler erhöhen 
Calculate(n); 
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/* nächste 2 Koordinatenpaare 


Line(x,y,x1,yl,farbe); 
/* Verbinden beider Linien 


Line(xold,yold,x,y, farbe); /* 1. Linie 
Line(xoldl,yoldl,x1,yl,farbe); /* 2. Linie 


xold = x; /* Zwischenspeichern der 
yold = y; /* aktuellen x- und y-Werte 
xoldl = x1; 

/* Zwischenspeichern der 2. Werte 
yoldl = yl; 
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Calculate (i) 
/* Berechnen der aktuellen Koordinaten */ 
float x,y; 


x = sin(i*pi/fx) * 160.0 + 160.0; 
/* Berechne 1.x-Koordinate */ 
y = cos(i*pi/fy) * 115.0 + 115.0; 


/* Berechne 1.y-Koordinate */ 
xl = sin(i*pi/fx1) * 160.0 + 160.0; 

/* Berechne 2.x-Koordinate */ 
yl = cos(i*pi/fy1) * 115.0 + 115.0; 

/* Berechne 2.y-Koordinate */ 


Bild 11.2 - Ausgabe des Algorithmus "Linien". 
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Dieses Bild haben Sie bestimmt schon einmal in die- 
ser oder ähnlicher Form gesehen. Das Lines-Demo der 
Workbenchdiskette funktioniert genauso. Obwohl hier 
nur Linien gezeichnet werden, entsteht jedoch ein 
räumlicher Effekt, der dem Bild eine scheinbare Tiefe 
verleiht. Ahnliche Effekte lassen sich aber auch mit 
Polygonen oder Kreisen erzeugen. Setzen wir statt der 
Line-Befehle in unserer Schlaufe den Polygon-Befehl 
wie folgt ein, so werden die einzelnen Flächen sofort 
ausgemalt auf dem Bildschirm erscheinen. 


Polygon(xold,yold,xoldl,yoldl,x1,yl,x,y, farbe, TRUE); 


Die vollständigen Programme zu diesen Algorithmen 
finden Sie wieder auf der Begleitdiskette, und zwar 
unter den Namen Linien und Flächen. Abschließend noch 
ein Beispiel mit Kreisen, wobei nicht nur die Positi- 
on der einzelnen Kreise von unserer Funktion berech- 
net wird, sondern auch dessen Radius. 


Kreise (a,b) 
float a,b; 
/* a im Bereich von 0.0 und 360.0 und b>a */ 


{ 
fx = 175; /* Beliebiger 
x-Schwingungsfaktor */ 
fy = 80; /* Beliebiger 
y-Schwingungsfaktor */ 
fr = 95; /* Schwingungsfaktor 
des Radius‘ */ 
for( n=a; /* Schlaufe: von a */ 
n<b; /* bis b */ 
n++) 
{Calculate(n); 
/* nächste 2 Koordinatenpaare */ 
Circle(x,y,r,farbe); /* Zeichne Kreis */ 
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n+=1; /* Schlaufenzähler erhöhen */ 


Calculate (i) /* Berechnen der aktuellen Werte */ 


{ 
x = sin(i*pi/fx) * 110.0 + 160.0; 
/* Berechne 1.x-Koordinate */ 
y = cos(i*pi/fy) * 65.0 + 65.0; 
/* Berechne 1.y-Koordinate */ 
r = sin(i*pi/fr) * 24.0 + 26.0; 
} /* Berechne den Radius */ 


Bild 11.3 - Ausgabe des Algorithmus "Kreise" 
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Auf der Begleitdiskette ist dieser Algorithmus als 
vollständiges Programm unter den Namen Kreise gespei- 
chert. 


Tips: 


- Zur Farbgebung dieser Grafiken noch folgendes: an- 
statt die Farbpalette beliebig zu wählen (wie in 
den Beispielprogrammen der Begleitdiskette) können 
Sie den 3D-Effekt dieser Bilder erhöhen, indem Sie 
nur eine oder zwei verschiedene Farben auswählen 
und die restlichen Farbregister mit verschieden 
Intensitäten dieser Farbe(n) belegen. 

- Bei der Auswahl der Schlaufenlänge, sowie deren 
Start- und Endwerte, kann der Computer behilflich 
sein: benutzen Sie den Zufallsgenerator! 

- Für Start- und Endwerte können Sie bestimmte Bedin- 
gungen einführen. Im Beispielprogramm "Kreise" ha- 
ben wir das Schleifenende so gewählt, daß der Radi- 
us der Kreise fast Null ist. Somit entsteht immer 
höchstens ein offenes "Schlauchende". 


Einen Sternenhimmel kann man bereits durch zufälli- 
ges setzen von mehr oder weniger hellen, weißen Punk- 
ten auf einen schwarzen Hintergrund erzeugen. Nun ja, 
das wird niemanden vom Hocker reißen, der, auf welche 
Weise auch immer, schon einmal mit einem Weltraum- 
ballerspiel konfrontiert worden ist. Wesentlich in- 
teressanter wird das Bild, wenn man einen Spiralnebel 
einsetzt. Zur Verwirklichung benötigt man lediglich 
eine Funktion, die eine Spirale zeichnet. Diese darf 
natürlich nicht direkt auf den Bildschirm gebracht 
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werden, sondern muß "verschmiert" werden. Dazu benut- 
zen wir ein Unterprogramm, daß mit Hilfe von Zufalls- 
zahlen eine Sternenwolke erzeugt. Dabei wird die Grö- 
ße der Wolke durch einen angegebenen Radius bestimmt. 
Vor dem Setzen eines Punktes überprüfen wir zunächst, 
ob dieser schon gesetzt ist. Ist dies der Fall so 
wird sein Farbwert um eins erhöht, so daß er heller 
erscheint. Die Spiralfunktion schließlich leiten wir 
aus der Kreisfunktion ab. Ein Kreis entsteht beim 
Durchlaufen der Funktion x = sin(alpha) und y = cos 
(alpha) für alpha = 0 bis alpha = 2 * Pi. Eine Spira- 
le erhält man, wenn man jeweils x und y mit einem 
linear ansteigenden Wert multipliziert. Da sich die 
Spirale so zu langsam ausdehnt multiplizieren wir je- 
doch nicht direkt mit der Schlaufenvariablen, sondern 
mit deren Quadrat. Als vollständiges Programm sieht 
das dann so aus: 


/* SpiraINebel von Olaf Pfeiffer, 
C-Version von Paul Lukowicz */ 


#inc lude"Display.h" 
#include"gfxTools.h" 

#inc lude"intuition/intuition.h" 
#inc lude"math.h" 


struct Window *Window; 
struct Screen *Screen; 
struct RastPort *Rast; 


int Col[]={ 0, 0,0, 0, 1,4, 0, 1,6, 0, 2,7, 
/* Farbwerte mit unter- */ 

0,2, 9, 1, 2,10, 1, 3,11, 1, 4,12, 
/* schiedlichen Inten- */ 

2, 4,12, 2, 5,13, 2, 6,13, 3, 8,14, 
/* sitäten für die Dar- */ 

4,10,14, 7,11,15, 10,13,15, 15,15,15 / 
* stellung der Sterne. */ 
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0) 
7 


main () 


USHORT code, i, J, h; 
ULONG Class; 


OpenIntui(); 
OpenGfx(); 


/* Einen low-res Screen öffnen. */ 

Screen = (struct Screen *)MakeScr(0,0,320,250, 
"Nebel",4,NULL,NULL,NULL); 

if (Screen == NULL) 

exit(FALSE); 


/* Ein Fenster auf dem neuen Screen öffnen */ 

Window = (struct Window *)MakeWindow(20,50,270, 
100,0,0, "Spira Inebe 1" ,WINDOWCLOSE /ACTIVATE, 
CLOSEWINDOW,Screen); 


if(Window=z NULL) /* Fehler beim Öffnen ?_ */ 
exit(FALSE); 


/* Adresse des Viewports und des Rastports holen */ 
Rast = Window->RPort; 


/* Farbregister initialisieren */ 
SetColors(Screen,&C01,15); 


Background (); /* Hintergrund zeichnen */ 
Cloud(160,120,25.0); /* Sternwolke Zeichnen */ 
Spirale (); /* Spirale Zeichnen */ 


/* Auf Close-Gadget warten und alles schließen */ 
Class = WaitEvent(Window,&code); 
CloseWindow(Window); 

CloseScreen(Screen); 


268 


Kapitel 11 Graphikerzeugung 1 


Background () /* Setzt in dem Fenster verschiedene 
"Sterne" mit unterschiedlichen 
Intensitäten zur Gestaltung > 
Hintergrundes. 


intn, X, Yı Cı Ji 


J = Random(); 
for( n= 1; n <= ((int) (Random() * 150.0) + 200); 
x = (int) ( Random() * 320.0); en 
/* Zufällige x-Koordinate */ 

y = (int) ( Random() * 230.0) + 10; 
/* Zufällige y-Koordinate */ 

= (int) ( Random() * 15.0) + 1; 

/* Zufällige Intensit*t */ 

SetPixel(Rast,x,y,c); 
/* Punkt (=Stern) setzen */ 


} r 


Cloud (x, y, z) /* Setzt eine Sternenwolke mit 
einen von z abhängigem */ 
/* Durchmesser an die Stelle 


(x,y) AR 


int X, Y; 
float z; 


int n,c,xl, yl; 
float r; 


r = z * (Random( )+1.5); 
/* Radius der Sternwolke */ 

for( n= 0; n <= ((int) (z * z * (Random() + 
1.0)) + 10); n++) 
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xl =x + (int) (cos(2.0 * pi * Random()) * 
r * Random()):; 

yl =y + (int) (sin(2.0 * pi * Random()) * 
r * Random()); 

c = ReadPixel(Window->RastPort,x1,y1); 


if(c < 15) /* Wird ein Punkt nochmal an 
die gleiche Stelle */ 

++C; /* gesetzt, so erhöhe seine 
Intensität. 


SetPixel{Rast,xl1,yl,c); 
/* Setzte tern */ 


} r 


Spirale () 
/* Zeichnet auf einer Spiral-Kurve Sternenwolken. */ 


float z, hz; 


= 0.05; 
do { 
hz = 1.0 + z * z * 0.60; /* Schrittweite zwischen 
den einz. Wolken. */ 
Cloud((int) (cos(z)*hz*1.25)+160, (int) (sin(z+pi) 
*hz)+120,z); 
Cloud((int) (cos(z+pi)*hz*1.25)+160, (int) (sin(z) 
*hz)+120,z); 
z = z + Random() * 0.20 + 0.05; /* Radius der 
Wolke vergrößern. */ 
} while (z <= 4.25 * pi); 


Die beste Wirkung erzielt das so erstellte Bild, 
wenn Sie Ihren Monitor etwas dunkler und den Kontrast 
stärker stellen. 
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Tips: 


- Im vorliegenden Programm sieht man den Spiralnebe]l 
direkt von "oben", daß heißt er ist im wesentlichen 
kreisrund. Von der Erde aus gesehen, sind dies je- 
doch die wenigsten. Versuchen Sie doch mal durch 
geeignete Multiplikation der x- und y-Achsen mit 
einem variablen Wert, einen Spiralnebel zu erzeu- 
gen, der die äußere Form einer Ellipse hat, die am 
besten auch noch diagonal auf dem Bildschirm liegt. 
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Neulich stellte uns jemand die Frage: "Was heißt 
das denn? - Fraktal?". Da dies ein Begriff ist der 
heute im Zusammenhang mit der Computergrafik zwar oft 
verwendet aber nur selten erklärt wird, wollen wir 
dies hier kurz tun: allgemein bezeichnet man damit 
Gebilde und Erscheinungen (die wir durchaus auch in 
der Natur wiederfinden) die eine wichtige Gemeinsam- 
keit besitzen: die Selbstähnlichkeit. Das heißt 
nichts anderes,als daß man beim vergrößern eines Aus- 
schnittes aus diesem Gebilde wiederum ein dem ur- 
sprünglichen ähnliches Gebilde erhält. Bei den frak- 
talen Kurven geht es in erster Linie um Grafiken, die 
nur durch eine bestimmte Anordunug von gleichlangen 
Strichen entstehen, die alle miteinander in bestimm- 
ten Winkeln verbunden sind. Dabei gibt es praktisch 
nur drei Zeichenbefehle, mit denen der Grafik-Cursor 
gesteuert wird. Diese Ansteuerung erfolgt durch In- 
terpretation einer Zeichenkette, wobei alle Zeichen 
der Kette durchgegangen werden. Ist das folgende 
Zeichen ein "F", so bewegt sich der Cursor um eine 
Längeneinheit nach vorne (forward) und zeichnet so 
eine Linie. Ist das nächste Zeichen ein "+" oder ein 
"-" so dreht sich der Cursor um eine Winkeleinheit 
delta nach rechts oder links. Andere Zeichen sollen 
zunächst einmal ohne Wirkung bleiben. Das Wesent- 
liche bei dieser Technik ist aber die Enttehung 
dieser Zeichenkette. Dabei wird die Zeichenkette 
zunächst einmal Initialisiert, ihr werden also ein 
oder mehrere Zeichen zugeordnet. Diese Zeichenkette 
werden wir ab jetzt Axiom nennen. Als nächstes gibt 
es eine oder mehrere Regeln, die jeweils ein be- 
stimmtes Zeichen des Axioms durch eine andere Zei- 
chenkette ersetzten. Diese Regeln werden in einer 
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Schlaufe auf das ganze Axiom angewendet.Dazu erstmal 
ein Beispiel: Axiom sei "F++F++F", daß heißt bei 
einer Winkeleinheit von Delta = pi/3 (60 Grad) er- 
halten wir bei der oben definierten Interpretation 
ein gleichseitiges Dreieck. 


Lautet die Regel "F"->"F-F++F-F", so bedeutet das, 
daß jedes "F" aus unserem Axiom durch die Zeichenket- 
te "F-F+t+F-F" ersetzt werden soll. Lassen wir diese 
Regel auf unsere Zeichenkette los, so erhalten wir 
als neue Zeichenkette: 


"F-F+#+F-F++F-F++F-F+HF-F+H+F-F" 


Schicken wir unseren Grafik-Cursor los, dann erhal- 
ten wir einen sechszackigen Stern. Nun kann man aber 
diese Regel beliebig oft anwenden und erhält somit 
nicht nur wesentlich längerer Zeichenketten, sondern 
auch dementsprechend "verwinkeltere" Figuren. In 
unserem Fall sähe die Zeichenkette nach dem nächsten 
Schritt so aus: 


"F-F++F-F-F-F+t#F-F++F-F++F-F-F-F+#+F-F++ 
F-F++F-F-F-F++F-F+t#+F-F++F-F-F-F++F-F++ 
F-F++F-F-F-F++F-F+#+F-F++F-F-F-F+#+F-F" 


Lassen wir die Regel noch ein paarmal auf unsere 


Zeichenkette los, so entsteht eine Art Schneeflocke, 
wie in Bild 11.4. 
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Bild 11.4 - Die Schneeflocken-Kurve. 
NE 3lEnas tale rıpye = Sschnsetlo: 


V dete Werte: 
haonı PHArHE Regel: F-) F-FHf-F, Delta: pi/3, Tiefe: 4 


In den Bildern 11.5, 11.6 und 11.7 finden sie wei- 
tere Beispiele mit anderen Axiomen und Reproduktions- 
regeln. Die jeweiligen verwendeten Werte finden Sie 
ebenfalls in den Bildern abgedruckt. 


Bild 11.5 - Noch eine Schneeflocke, diesmal die Spit- 
zen nach innen "geklappt". 


Ken: FH, Regel: F-) Far-iF, Delta: pi/3, Tiefe: 4 
274 


Kapitel 11 Graphikerzeugung 1 


Bild 11.6 - Das sogenannte "Quadratic Island". 


lEraktale Kurven - Quadratıc | le 


$ 


xy; 


Axion: F+F#ftf, Regel: F-) F+R-F-TTFAFHF-F, Delta: pi/2, Tiefe: 3 


Bild 11.7 - Die sogenannte "Drachenkurve" benötigt 
bereits zwei verschiedene Reproduktionsregeln. 


—— 01] 


Pr u EL 
verorurerune 
“un 
PP REDE EHE EL 
Del 52 m DESSERT 
ve Nonnen 
ner 
MUUUHHRHEREH EEE Gi GER 
PR Do DU Du Da Dar Doc DE Doc DE DIL Dec BE BEL BEL DE} 
N er ER» DE: 
Dre IT TFT 5 
none 
nen 
REN. 
“ern. 
Desce  Gi 
...00.s 


Aaden: X, Regeln: X -) X+YF+, Y -) -TX-Y, Delta: pi/2, Tiefe: 13 


275 


Kapitel 11 Graphikerzeugung 1 


Bei den L-Systemen (benannt nach Lindenmayer) be- 
nutzt man die gleiche Technik wie bei den Fraktalen 
Kurven, es werden lediglich noch zwei weitere Zeichen 
und deren Interpretationen eingeführt. 


Das Zeichen "[" soll heißen: hier beginnt eine Ver- 
zweigung und das Zeichen "]": hier endet ein "Able- 
ger", deshalb gehe zurück zur letzten Verzweigung und 
mache dort weiter. Somit ist es möglich, fiktive 
Pflanzen zu erzeugen, die teilweise eine verblüffende 
Ahnlichkeit zu existierenden Pflanzen haben (Siehe 
Bild 11.8 und 11.9). Programmtechnisch muß also ein 
Stack (Zwischenspeicher, der die zuletzt eingege- 
benen Werte zuerst wieder ausgibt) angelegt werden, 
der sich an einer Verzweigung "[" nicht nur die aktu- 
elle Position merkt, sondern auch die Richtung, in 
die der Cursor sich weiterbewegen würde. Bei einem 
"]J" müssen sie dann wieder als die aktuelle Po- 
sition und Richtung benutzt werden. In dem hier vor- 
liegenden Programm müssen Sie außerdem noch die 
Startkoordinaten und die Startrichtung angeben, von 
der aus mit dem Zeichnen begonnen werden soll. 


Bild 11.8 - Ein "buschiges Gestrüpp". 
[ol 


Verwendete Kerte: 
Axion: F}, Regel: F-) FFEt+P-F-Fi-i-Fefsfl, Delta: pi/e, Tiefe: 3 
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Bild 11.9 - Ein "Florius Fictivicus". 


xıon: FJ, Regel: F-) FL+FIFL-FIF, Delta: pi/6, Tiefe: 4 


Zur grafischen Interpretation der erzeugten Zei- 
chenkette empfielt sich die Verwendung von sogenann- 
ten Turtle-Befehlen, mit denen ein fiktiver Zeichen- 
stift über den Bildschirm geschickt werden kann. Der 
Name Turtle (engl.:Schildkröte) läßt erahnen, wie 
langsam die ersten Implementationen dieser Grafikbe- 
fehle gewesen sein müssen... 


Da der Amiga standardmäßig über diese Befehle nicht 
verfügt, geben wir hier nur einen vereinfachten 
"Pseudo-Algorithmus" zur grafischen Interpretation 
der Zeichenkette an. Neben den Turtle-Befehlen werden 
Funktionen zur String- (Length(String) liefert die 
Länge einer Zeichenkette und GetChar(n,String) das 
nte Zeichen der Zeichenkette) und Stack-Behandlung 
benutzt (Push(value) legt den Wert value auf den 
Stack ab, Pop holt den obersten wieder vom Stack 
runter). 
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InitTurtle 
/* Den Zeichenstift initialisieren, 
also an eine bestimmte Position 
setzen und eine Bewegungsrichtung 
festlegen. */ 


for n := 1 to Length(String) do 
/* In einer Schlaufe alle Zeichen der 
Zeichenkette durchgehen. */ 


char := GetChar(n,String); 
/* n-tes Zeichen aus der Zeichenkette 
holen. */ 


"F" then MoveForward 
/* Bei "F" Zeichenstift vorwärts 
bewegen. */ 


if char 


elsif char = "+" then TurnRight 
/* Bei "+" die Bewegungsrichtung des 
Zeichenstiftes um eine Einheit nach 
rechts drehen. */ 


elsif char = "-" then Turnleft 
/* Bei "-" die Bewegungsrichtung des 
Zeichenstiftes um eine Einheit nach 
links drehen. */ 
elsif char = "[" then Push(Direction) 
/* Bei "[" die Bewegungsrichtung des 
Zeichenstiftes, sowie */ 


Push(YPosition) 
/* die y-Koordinate und */ 
Push(XPosition) 
/* die x-Koorinate der Position des 
Zeichenstiftes auf den Stack legen. */ 
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elsif char = "]" then PenUp 
/* Bei "]" den Zeichenstift aufheben, */ 


MoveTo(Pop,Pop) 
/* ihn zu der zuletzt auf den Stack 
gelegten Position bewegen und */ 


TurnTo(Pop) 
/* ihm die vorherige Bewegungsrichtung 
zurückgeben. */ 


PenDown 
/* Abschließend Zeichenstift wieder 
absetzen. */ 
end 


Tips: 


- Auch hier spielt die Farbwahl wieder eine große 
Rolle. Bei den L-Systemen erscheint es sinnvoll die 
Farbe von der Verzweigungstiefe abhängig zu machen. 
So kann man die Äste immer heller, bzw. grüner 
machen als den Stamm. 


- Die Enden der Zweige sollten sie mit Blättern oder 
gemischt mit Blüten verzieren. Dazu müssen sie ledig- 
lich eine Unteroutine schreiben, die z.B. an der 
aktuellen Position einen bunten Kreis setzt und 
jedesmal bei dem Zeichen "]" mitaufgerufen wird. 
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Lassen Sie uns hier zunächst bemerken, daß es 
grundsätzlich zwei Arten von Grafikprogrammierern 
gibt: die einen Schalten Ihr "komplexes Rechenwerk" 
an, geben ein paar komplexe Werte in Ihr komplexes 
Programm und - gehen ins Bett... Am nächsten Morgen 
(manchmal auch erst am übernächsten) ist es dann 
soweit: "Oh was für eine schöne, komplexe Darstellung 
einer komplexen Zahlenmenge!" - Und dann sind da noch 
die Grafikprogrammierer, die ohne "komplexe" arbei- 
ten: diese muten ihrem Computer nur soviel zu, wie er 
in wenigen Minuten anhand schneller Algorithmen erle- 
digen kann. - Bevor da irgendein Zweifel aufkommt: 
wir gehören zu den letzteren! 


Wie sie Anhand dieser Einleitung sicher schon 
bemerkt haben, kommen wir zu einer Technik die je 
nach Anwendung sehr lange dauern kann. Der Grundge- 
danke dabei ist folgender: An einer mehr oder 
weniger zufälligen Stelle am Rand des Fensters wird 
ein Pixel losgeschickt. Losgeschickt deshalb, weil er 
sich ab nun jeweils zufällig in eine beliebige 
Richtung mit der Schrittweite eins weiterbewegt. 
Dieser Vorgang wird solange wiederholt, bis er entwe- 
der das Fenster verläßt (dann wird ein neuer losge- 
schickt) oder er auf einen anderen Pixel stößt. Ist 
dies der Fall, so friert er an dieser Stelle fest und 
erhält bestenfalls noch eine bestimmte Farbe. Die 
Zeit, die das Programm zur Erstellung einer solchen 
Grafik braucht, wird dabei im wesentlichen durch die 
Dimensionen des Fensters und der Anzahl der anfangs- 
gesetzten Pixel bestimmt. 
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Öffnen sie also ein größtmögliches Fenster und 
setzten zum Beginn nur ein Punkt in der Mitte, so 
können sie bei diesem Algorithmus, wenn Sie Pech 
haben, erst nach einer halben Stunde das atembe- 
raubende Ereignis miterleben, wie zwei Pixel mitei- 
nander verschmelzen! So wird dieser Algorithmus auch 
in einer deutschsprachigen Wissenschaftszeitschrift 
auf den Leser losgelassen. Immerhin wird in diesem 
Artikel auch zugegeben, daß dieser Algorithmus auf 
einem IBM XT "vier bis fünf Stunden" braucht. Dabei 
kann man durch ein paar Veränderungen den Algorithmus 
um einiges schneller gestalten, ohne die entstehende 
Grafik grundlegend zu verändern. Anstatt einen Pixel 
am Rande des Fensters zu Starten, schicken wir ihn 
vom äußeren Rand der entstehenden Figur los. Darüber- 
hinaus lassen wir den Pixel nicht bis zum Fensterrand 
wandern, ehe wir ihn für ungültig erklären, sondern 
betrachten ihn bereits als verloren, wenn er um einen 
gewissen Betrag hinter den eben erwähnten äußeren 
Rand gewandert ist. Wählt man die Dimension nicht 
allzu groß, erhält man bereits nach wenigen Minuten 
die fertige Grafik, eine Art Korallenstock. Das so 
verschnellerte vollständige Programm sieht wie folgt 
aus: 


/* RandomPixels 
von Olaf Pfeiffer, C-Version von Paul Lukowicz */ 
#include"Display.h" 
#include"gfxTools.h" 
#inc lude"intuition/intuition.h" 
#inc lude"math.h" 
#define Modus 2 


struct Window *Window; 
struct Screen *Screen; 
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struct RastPort *Rast; 


/* Setzen der Farben */ 


int Col []=1{0,0,0, 1,13, 3, 
ı Jı 2, 2, J, 1, 

4,711 4,702, 

6, 9,4, 7,9, 5, 

8,11, 6, 9,11, 7, 

10,13, 8, 11,13, 9, 


12,15,10, 13,15.11, 
14,12,12. 15.11.13, 


! 


int Dim, Dimx, Dimy, 
/* Dimensionen der Grafik */ 


rfig, rmax, 


Graphikerzeugung 1 


/* aktueller und maximaler Radius der Figur */ 


X, Y, xalt, yalt; 


/* aktuelle und alte Koordinaten des Punktes */ 


main () 


USHORT code, i, J, h; 
ULONG Class; 


int xalt, yalt, Cont, Color; 


char ch; 


OpenIntui(); 
Opentfx():; 


/* Einen low-res Screen öffnen. 


FL 


Screen = (struct Screen *)MakeScr(0,0,320,250, 
"RandomPixels",5,NULL,NULL,NULL); 


if(Screen == NULL) 
exit(FALSE); 


282 


Kapitel 11 Graphikerzeugung 1 


/* Ein Fenster auf dem neuen Screen öffnen */ 

Window = (struct Window *)MakeWindow(20,50,270,100, 
0,0, "RandomPiixe ls" ,WINDOWCLOSE !ACTIVATE, 
CLOSEWINDOW,Screen); 


if(Window == NULL) /* Fehler beim Öffnen ?7_ */ 
exit(FALSE); 


/* Adresse des Rastports holen */ 
Rast = Window->RPort; 


/* Farbregister initialisieren */ 
SetColors(Screen,&C01,15); 


Dimx = Dim / 2 + 5; 
/* Berechnen der halben x-Dimension */ 


Dimy = Dimx + 10; 
/* Berechnen der halben y-Dimension */ 


Line(Rast,Dimx-1,Dimy-1,Dimx+1,Dimy+1,2); 
/* initialisieren der Figur */ 


rfig = 1; 

/* aktueller Radius der Figur */ 
rmax = 81; 

/* maximaler Radius der Figur */ 
do 


StartPixel (); | 
/* Schicke einen Punkt auf die "Reise" */ 
do 


RandomMove (); /* Bewege den Punkt */ 
Cont = Valid(x,y,rmax); 
/* überprüfe die Gültigkeit */ 
Color = Found(x,y) + 1; 
/* Durchschnittsfarbwert der Umgebung */ 
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} while( (Cont == TRUE) && (Color <= 1)); 
/* bis Ungültig oder Kollision 


if( Color > 32 ) 
/* größter Farbwert erreicht ? 
Color = 2; /* also Farbwert zurücksetzen 
if(Cont = TRUE) 
/* Es gab eine Kollision mit der Figur 


SetPixel(Rast,x,y,Color); 
/* Punkt mit der neuen Farbe setzen 


if(vValid(x,y,(rfig * rfig)) == FALSE) 
{ /* Überprüfen der Radien der Figur 
rmax = rmax + 2 * (rfig + 8) + 1; 


/* berechnen des neuen max. Radius 
++rfig; 


Fi 


else 


/* aktuellen Radius erhöhen 


/* Der Punkt hat den 
/* Gültigkeitsbereich 
SetPixel(Rast,x,y,0); /* verlassen, also wieder 
/* löschen. 
} while( rfig > Dim / 2 - 10); 
/* wiederholen bis Radius > Dimension 


/* Auf Close-Gadget warten und alles schließen */ 


Class = WaitEvent(Window,&code); 
CloseWindow(Window); 
CloseScreen(Screen); 


} 
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/* Liegt der Punkt (x,y) im Gültigkeitsbereich ? */ 
int Valid(x, y, rg) 


int x, Y, rg; 
/* x- und y-Position, rfig zum Quadrat */ 


int ok; /* Rückgabe-Variable */ 
x=x - Dim; /* x-Entfernung vom Ursprung */ 
y=,y- Dimy; /* y-Entfernung vom Ursprung */ 
if(lx*x+y*y<rg) 

ok = TRUE; /* Punkt ist gültig */ 

else 

ok = FALSE; /* Punkt ist ungültig */ 


return ok; 


/* Prüfen auf Kollision */ 
int Found(x, y) 
int x, y/ /* x- und y-Koordinaten des Punktes */ 


int a, b, 
/* Schleifenzähler für die Nachbarpunkte */ 


Z,ı 29, 
/* Zähler für gesetzte Nachbarpunkte und 
deren Farbwerte */ 


c; /* aktueller Farbwert eines 
Nachbarpunktes */ 


z = 0; /* Initialisieren der Zähler */ 
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for( a = -1; a<= 1; at) 
/* linke und rechte 
Nachbarpunkte */ 
for( b= -1; b<= 1; br+) 
{ /* obere und untere 
Nachbarpunkte */ 
if( (a != 0) && (b != 0) ) 
{ /* den Punkt selbst 
ausschließen */ 


c = ReadPixel(Rast,x+a,y+b); 
if(c>0) 
{ /* ein Nachbarpunkt 
ist gesetzt */ 
zg += c; /* Farbwerte 
aufaddieren */ 
++Z; /* Zähler 
incrementieren */ 
}i 
} 
}r 
}i 
if( z!=0) /* Falls Punkt gesetzt, */ 
= 20 / z; /* Durchschnittsfarbwert 
berechnen */ 
return zg; /* und zurückgeben */ 


/* Einen Punkt auf die "Reise" schicken */ 


StartPixel () 


float alpha, rf; /* Startwinkel und -radius */ 


do 
{ alpha = Random() * 2.0 * pi; 


f* zufälli iger Startwinkel */ 
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rf = (float) (rfig) + 5.0; 
/* und zufälliger Startradius */ 


= (int) (sin(alpha) * rf - 
Random() * rf / Modus) + Dimx; 


y = (int) (cos(alpha) * rf - 
gg ) * rf / Modus) + Dimy; 
} while( Found(x,y) != 0); 
f* ee len bis Punkt gültig */ 


SetPixel(Rast,x,y,1); /* Punkt setzen */ 
xalt = x; /* und Koordinaten merken */ 
yalt = y; 


/* Bewegen des Punktes um einen Schritt */ 
RandomMove () 
float b; 


b = Random(); 

if(b < 0.25 ) 

+tty; /* y inkrementieren */ 
else if[ b<0.5 ) 

--(y); /* y dekrementieren */ 
else if[ b< 0.75 ) 


++X; /* x inkrementieren */ 
else 
-- (x): /* x dekrementieren */ 
SetPixel(Rast,xalt,yalt,O); /* alten Punkt 
löschen */ 
SetPixel(Rast,x,y,1): /* und an neuer 
Position setzen */ 
xalt=x; /* Koordinaten merken */ 
yalt = y; 
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Bild 11.10 - Ein durch den Algorithmus "Randomixels" 
erzeugter "Korallenstock". 


Randon Pıxels em 


Für die Dimension 75 rechnet der Amiga (ohne Abschal- 
ten anderer Tasks) unter drei Minuten, allerding 
benötigt er für die Dimension 200 immernoch etwas 
über eine halbe Stunde. Deshalb haben wir in unserem 
vollständigen Programm RandomPixels der Begleit- 
diskette einen weiteren Verschnellerungsfaktor einge- 
baut, der jedoch die entstehende Figur in einem 
stärkeren Maße beeinträchtigt. Ein Pixel wird dann 
nicht mehr nur auf den "Umkreis" der Figur losge- 
schickt, sondern innerhalb eines Ringes gestartet, 
der in die Figur hineinreicht. Dabei ist der äußere 
Radius dieses Ringes der gleiche wie vorher und der 
innere um den Flächenfüllfaktor kleiner. Diesen Namen 
haben wir ihm gegeben, da die so entstehenden Figuren 
sich bei gleichem Umfang aus wesentlich mehr Pixel 
zusammensetzen. 
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Tips: 


- Zur Initialisierung kann man auch mehrere Pixels 
oder gar Linien verwenden, die nicht unbedingt in der 
Mitte des Bildschirms stehen müssen. Beachten Sie 
dann aber, daß Sie die Definition des äußeren Randes 
der Figur eventuell neu vornehmen müssen. So erhalten 
Sie zum Beispiel durch setzen einer Linie am unteren 
Fensterrand und entsprechender Definition der Start- 
und Abbruchbedingungen Gewächse, die an ÜUnterwas- 
serpflanzen erinnern. 


- Ein Vorschlag der nochmals eine wesentliche Ver- 
schnellerung bewirkt: sorgen Sie dafür, daß ein Pixel 
sich immer auf die Figur zubewegt und sich nicht von 
ihr entfernt. Zugegeben, bei unserer ursprünglichen 
Figur ist das eine nicht ganz so einfache Aufgabe, 
aber um so leichter ist es bei den eben ange- 
sprochenen Gewächsen. Erhöhen Sie in der Prozedur 
RandomMove den Vergleichswert 0.25 vor dem INC(y) von 
auf einen Wert kleiner als 0.5. Je näher dieser Wert 
bei 0.5 liegt, desto größer die Wahrscheinlichkeit, 
daß sich der Pixel nach unten bewegt. 


- Das wesentliche Erscheinungsbild können Sie auch 
auf folgende Art verändern: fügen Sie bei der Kolli- 
sion einen Zufallswert ein, ob der Punkt hier ein- 
frieren soll oder nicht. Dadurch werden die einzelnen 
Aste der Figur dicker, wobei wir jedoch nicht verges- 
sen dürfen zu erwähnen, daß dadurch das Programm 
wieder langsamer wird. 
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Während wir uns im letzten Kapitel nur mit der 
zweidimensionalen Grafik beschäftigt haben, werden 
wir hier anhand einiger Beispiele zeigen, wie man 
dreidimensionale Objekte auf dem Bildschirm dar- 
stellt. Am Ende der Abschnitte mit den Programmbei- 
spielen finden sie wieder Tips, die Ihnen Anregungen 
zur Veränderung der Programme geben. 


Schlägt man in einem Grafikbuch das erste Kapitel 
über dreidimensionale Grafik auf, so wird man meißB- 
tens mit jeder Menge Mathematik konfrontiert. Dort 
stehen dann oft seitenlange Einführungen in die 
Vektorrechnung die manchmal sogar über den dreidi- 
mensionalen Raum hinausgeht. Da eine Darstellung von 
mehr als -dxei Dimensionen für uns hier absolut 
unbedeutend ist, betrachten wir also ab jetzt aus- 
schließlich den dreidimensionalen Raum. Wir verzich- 
ten an dieser Stelle bewußt auf die Theorie der 
Vektorrechnung und gehen davon aus, daß Ihnen ein 
"Vektor in einem dreidimensionalen Raum" ein bekann- 
ter Begriff ist. Auch sollten Sie sich darüber klar 
sein, daß jeder Körper im Raum durch Vektoren darge- 
stellt werden kann. Ansonsten werden wir uns auf die 
reine Anwendung der entsprechenden Formeln beschrän- 
ken, ohne Sie erst zu beweisen, da Sie für uns reine 
Hilfsmittel seien sollen. Zunächst aber erst einmal 
zu den beiden Definitionen der drei Koordinatenach- 
sen. Bei der mathematischen Definition geht man von 
eine (x,y)-Ebene aus, auf der die z-Werte senkrecht 
aufgetragen werden. Auf Computern trifft man jedoch 
oft auf folgende Definiton der x-, y- und z-Achse: 
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Als x- und y-Achse definieren wir die gleichen wie 
im zweidimensionalen. Sitzt also der Ursprung dieses 
Koordinatensystems in der Bildschirmmitte, so geht 
die x-Achse nach rechts und die y-Achse nach oben! 
Die z-Achse ist nun die dritte, neue Achse, die jedem 
Punkt auf dem Bildschirm auch noch eine "Tiefe" 
zuordnet. Diese verläuft also in Ihren Monitor 
"hinein". Bei diesen beiden Systemen werden also die 
y- und z-Achsen miteinader vertauscht. Abgesehen von 
der Berechnung mathematischer Funktionen werden wir 
uns im wesentlichen an das zweite System halten. 


Hierbei handelt es sich um ein Hilfsmittel, daß es 
uns erlaubt einen Vektor und somit einen beliebigen 
Punkt im Raum um einen beliebigen Winkel um die drei 
Koordinatenachsen zu drehen. Damit ist es dann auch 
möglich, beliebige Körper und Flächen auf dem Bild- 
schirm zu drehen. Da in vielen Anwendungen nur eine 
Drehung um ein oder zwei Winkel nötig ist, kann diese 
Matrix verkürzt werden, indem die nichtveränderbaren 
Winkel direkt eingesetzt und ausgerechnet werden. 
Dies haben wir auch in den nächsten beiden Abschnit- 
ten so gehandhabt. 


Hier nun die Definition der Rotationsmatrix: 
RM[1,1]J= cos(wz)* cos(wy); 


RM[2,1]=-cos(wz)* sin(wy); 
RM[3,1]= sin(wz); 
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RH[1,2]= sin(wx)*sin(wy)-cos(wx)*cos(wy)*sin(wz); 
RM[2,2]= sin(wx)*cos(wy)+cos(wx)*sin(wy)*sin(wz); 
RM[3,2]=- cos(wx)*cos(wz); 
RM[1,3]= cos(wx)*s in{wy)+sin(wx)*cos(wy)*sin(wz); 
RM[2,3]= cos(wx)*cos(wy)-sin(wx)*sin(wy)*sin(wz); 
RM[3,3]=-s in(wx)*cos(wz); 


Dabei sind wx, wy und wz die gewünschten Drehwinkel 
um die jeweilige Achse (im Bogenmaß). Beachten Sie 
dabei, daß die Drehungen um die x-Achse nach vorne, 
um die y-Achse nach rechts und um die z-Achse im 
Uhrzeigersinn erfolgen! Die Übertragung auf unser 
definiertes Koordinatensystem erhalten wir durch fol- 
gende Multiplikation mit den jeweiligen Koordinaten 
x, y und z: 


xnew = RM[1,1] * x + RM[2,1] * y + RM[3,1] * z; 


ynew = RM[1,2] * x + RM[2,2] * y + RH[3,2] * z; 
znew = RM[1;3] * x + RM[2,3] * y + RM[3,3] * z; 


Dabei ist es selten erforderlich znew wirklich 
auszurechnen, da uns zur Darstellung auf dem Bild- 
schirm meißtens die x- und y-Koordinate eines Punktes 
ausreicht. 


Als Anwendungsbeispiel nehmen wir den Punkt 
(10,20,0). Gehen wir von unserem Ursprung in der 
Bildschirmmitte aus, So liegt dieser Punkt 10 nach 
rechts, 20 nach oben und O nach hinten vom Ursprung. 
Gedreht werden soll er: 30 Grad nach vorne um die 
x-Achse, 90 Grad nach rechts um die y-Achse und 45 
Grad im Uhrzeigersinn um die z-Achse. Die neuen 
Koordinaten xnew, ymew und znew erhalten wir, wenn 
wir die Winkel wx := Pi/3, wy := Pi, wz := Pi/2 
setzen und anschließend die oben gezeigte Multiplika- 
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tion mit den Koordinatenpunkten durchführen. So er- 
halten wir den "gedrehten" Punkt: (10,5,13). 


Wir werden hier als Beispiel das Koordinatensystem 
auf dem Bildschirm darstellen und es um beliebige 
Winkel drehen. Dazu benötigen wir zunächst die x-, y- 
und z-Koordinaten der Punkte die durch Linien oder 
Linienzüge miteinander verbunden sind. Haben wir alle 
Punkte erfaßt, so lassen wir lediglich noch die Rota- 
tionsmatrix mit den gewünschten Winkeln auf alle 
diese Punkte los und erhalten die "gedrehten" Werte. 
Den Wert znew berechnen wir dabei nicht, da wir nur 
die x- und y-Koordinaten zur Bildschirmdarstellung 
benötigen. 


/* Koordinaten 7 


#inc lude"Display.h" 
#include"gfxTools.h" 

#inc lude"intuition/intuition.h" 
#inc lude"math.h" 


struct Window Window; 

struct RastPort *Rast; 

float wx,wy,wz; /* Die Drehwinkel um die einzel- 
nen Koordinatenachsen */ 

int Posx,Posy,Posx1,Posyl,xm,ym,n; 

char ch; 
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float L [18] [3] ={0,0,0, 100,0,0, 90,0,0, 100,0,10, 
100,0,0, 90,0,10, 

0,0,0, 0,100,0, 0,90,0, 10,100,0, 
10,100,0, 10,90,0, 

0,0,0, 0,0,100, 0,0,90, 0,10,100, 
0,5,95, 0,10,90 


/* Die Vektorenpaare (x1,yl,z1,x2,y2,z2) die jeweils 
eine Linie im Raum definieren. */ 

float M [3] [3]; /* Die Rotationsmatrix */ 

main () 


USHORT code, i, j, h; 
ULONG Class; 


OpenIntui(); 
OpenGfx(); 
printf(" \n >> Erstellung eines 3D-Koordinatensys- 
tems << |n"); 
pr int f( Nszsz==2=222=2222=2=22222222222222222222e222= \n "): 


printf(" Drehwinkel um die x-Achse: "); 
scanf("$d ",‚&n); 

wx = n * pi / 180.0; 

printf(" Drehwinkel um die y-Achse: "); 
scanf("%d ",&n); 

wy =n * pi / 180.0; 
printf(" Drehwinkel um die z-Achse: "); 
scanf("2d ",&n); 

z=n* pi / 180.0; 
printf(" Drehwinkel um die Achsen: %e %e %e \n ", 
WX,WY,WZ) 7 


/* Ein Fenster auf dem Workbench-Screen öffnen */ 


Window = (struct Window *)MakeWindow(0,0,639,230,0, 
0,"Koordinaten", 
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WINDOWCLOSE !ACTIVATE,CLOSEWINDOW, NULL); _ 

if(Window == NULL) /* Fehler beim Offnen ?_ */ 
exit(FALSE); 

/* Adresse des Viewports und des Rastports holen */ 
Rast = Window->RPort; 


RotMatrix (); /* Die zugehörige Rotationsma- 
trix ausrechnen */ 


for( n=0;n<= 17; m#=2) 
Transfer (LEn]VOJ,EEnJEL] KEnit2]); 


/* Startpunkt einer Linie * 
Posx1 = Posx; Posyl = Posy; 

/* Bildschirmkoordinaten merken */ 
Transfer(L[ns11[0],L[n1][1],L[n+11[2]); 

/* Endpunkt einer Linie */ 
Line(Window->RPort,Posx,Posy,Posx1,Posyl,n / 6+1); 


r 


/* Auf Close-Gadget warten und alles schließen */ 
Class = WaitEvent(Window,&code); 
CloseWindow(Window); 


RotMatrix () 


{ M[0][0] = cos(wz) * cos(wy); 
M[1][0] =-cos(wz) * sin(wy); 
M[2][0] = sin(wz); 
M[o][ı1] = sin(wx) * sin(wy) - cos(wx) * cos(wy) 
* sin(wz); 
M[1][1] = sin(wx) * cos(wy) + cos(wx) * sin(wy) 
* sin(wz); 
M[2][1J] = cos(wx) * cos(wz); 
M[o][2] = cos(wx) * sin(wy) + sin(wx) * cos(wy) 
* sin(wz); 


297 


Kapitel 12 Graphikerzeugung 2 


M[1][2] = cos(wx) * cos(wy) - sin(wx) * sin(wy) 
* sin(wz); 
M[2][2] =-sin(wx) * cos(wz): 


Transfer (x,y,z) 

/* Einen Punkt im 3D-System mit Hilfe der 
Rotationsmatrix drehen. */ 

aa Kr Yu 28 


eh xl, z1; 
ulontor *x + M[1][0o] * y + H[2][0] * z; 
yı = M[oJ[1] * x + M[1][1] * y + M[2][1] * z; 
zi = M[o]J[2] * x + M[1][2] * y + M[2][2] * z; 
Posx = 320 + (int) x1 *2; /* Umrechnung in Bild- 
schirmkoordinaten */ 
Posy = 130 - (int) yl; 


Zunächst nochmals kurz zur Erinnerung: Ein "norma- 
ler" Graf einer Funktion y = f(x) hat zwei Koordina- 
tenachsen, wird also zweidimensional dargestellt. Re- 
det man von einer 3D-Funktion so ist damit eine Funk- 
tion der Form z = f(x,y) gemeint. 


Anschaulich bilden die Koordinatenachsen x und y 
eine Ebene, auf der sich die Funktion, z.B. in Form 
von Sinusschwingungen, erhebt. Programmtechnisch wer- 
den wir also einen doppelt dimensionierten Array in 
Abhängigkeit von x und y anlegen, der zu den Koordin- 
atenpaaren (x,y) den entsprechenden Funktionswert 
enthält. Das Programm läßt sich in zwei wesentliche 
Abschnitte teilen: das Ausrechnen der einzelnen Funk- 
tionswerte und die Darstellung auf den Bildschirm. 
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Beachten Sie bei Funktionen bitte immer, daß Sie ei- 
nen sinnvollen Definitionsbereich auswählen, so daß 
es gar nicht erst zu einem "Division by Zero"-Error 
kommen kann. 


Die allgemein übliche Form der Ausgabe solcher 
Funktionen ist die eines Gitternetzes, welches sich 
aus vielen kleinen Vierecken zusammensetzt. Betrach- 
ten wir jedes dieser Vierecke für sich, so haben wir 
Polygone, die durch ihre Eckkoordinaten gegeben sind. 
Diese können wir bereits auch beliebig gedreht auf 
dem Bildschirm darstellen. Um das gesamte Gitternetz 
auszugeben, müssen wir lediglich eine Schlaufe pro- 
grammieren, die alle Vierecke zeichnet. Zuvor lohnt 
sich aber noch eine Überlegung zum Thema verdeckte 
Linien: Linien, die im Hintergrund liegen, also durch 
davorstehende verdeckt werden, sollen auch wirklich 
nicht erscheinen. 


Um jetzt aber vor dem Zeichnen einer Linie nicht 
erst nachrechnen zu müssen, ob diese sichtbar ist 
oder nicht, bedienen wir uns eines einfachen Tricks. 
Wir zeichnen nicht einfache Polygone, sondern umran- 
dete, mit der Hintergrundfarbe ausgefüllte Polygone. 
Nun legen wir die Schlaufen, die die einzelnen 
Vierecke ausgeben, so, daß die hintenstehenden Vier- 
ecke zuerst, die vornestehenden zuletzt gezeichnet 
werden. Sollte es "verdeckte" Linien geben, dann 
werden sie bei diesem System von den im. Vordergrund 
stehenden übermalt. 


Auch bei der beliebigen Drehung des Gitternetzes 
sind einige Einschränkungen durchaus sinnvoll. Auf 
eine Drehung um die von uns definierte z-Achse können 
wir verzichten, wodurch sich die Rotationsmatrix um 
einiges vereinfacht, wenn wir für den Winkel wz 
sofort 0 einsetzten. 
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/* Funktionen-Plotter */ 


#inc lude"Display.h" 

#inc Iude"graphics/gfx.h" 

#inc lude"intuition/intuition.h" 
#inc lude"math.h" 
#include"Areakxtras.h" 


#define Din 64 /* Die Größe des Koordinaten- 
netzes */ 
#define pi 3.14159 


struct Coordinates 


SHORT xK,yK; I 


struct Window *Window; 
struct Screen *Screen; 
struct RastPort *Rast; 
struct ViewPort *View; 


SHORT F[65][65], 

/* Das Koordinatennetz */ 
Dx[65][65],Dy[65][65]; 

/* Die Bildschimkoordinaten jedes Punktes */ 

USHORT code,i,j; 

ULONG Class; 


main () 


printf(">>> 3D Funk-Plotter<<<"); 
OpenIntui(); 
OpenGfx(); 
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Init(); 

/* Berechnen der Funktion */ 
OpenAl1(&Window,&Screen,&Rast,&View); 

/* Offnen der Grafikausgabe */ 
Ausgabeberechnung(); 

/* Berechnung der Bildschirmkoordinaten */ 
DrawLand(); 

/* Ausgabe der Funktion */ 


/* Auf Close-Gadget warten und alles schließen */ 
Class = WaitEvent(Window,&code); 
CloseWindow(Window); 

CloseScreen(Screen); 


OpenAll(Wind,Scr,RastP,ViewP) 


struct Window **Wind;struct Screen *tScr; 
struct RastPort **RastP; 
struct ViewPort **ViewP; 


/* Einen low-res Screen öffnen. */ 
*Scr = (struct Screen *)MakeScr(0,0,639,255, 
"Fractals",2,HIRES,NULL,NULL); 
if (*Scr == NULL) 
exit(FALSE); 


/* Ein Fenster auf dem neuen Screen öffnen */ 

tWind = (struct Window *)MakeWindow(0,0,639,255, 
0,0,"Funktionen" ,WINDOWCLOSE ! ACTIVATE, 
CLOSEWINDOW, *Scr); 2 

if(*Wind == NULL) /* Fehler beim Öffnen ?_ */ 

exTt(FALSE); 
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/* Adresse des Viewports und des Rastports holen */ 
*RastP = (*Wind)->RPort; 
tYjewP = &((*((*Wind)->WScreen)).ViewPort); 


Init() /* Das Koordinatennetz mit einer Funktion 
belegen */ 


{ 


short i,j; 
for (i = 0; i <= 64; it) 


er (j1 =0; j <= 64; 
il [ji] = sin(i/16. a * cos(j/16.0*pi) * 40.0; 


Ausgabeberechnung () 
/* Berechnet zu den Werten F[x,y] die zugehörigen 
Bildschirmkoordinaten */ 


{ 
SHORT X,y; 


Dx[x][y] = 512 - [ERORTIELLFTORENRAPEBEI DENE, 0* 
((float)x)) + 2*y; 
Dy[xJ[y] = 80 + 2*y - FixIlyl: 
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++X/ 
} while (x <= Dim); 
++y; 


y while (y <= Dim); 


DrawLand () 
/* Grafische Ausgabe in das Fenster auf dem 
LoRes-Screen. */ 


SHORT x, y; 
struct Coordinates P[5]; 


P[o].yKk = Dy[x]Ly]; P[1].xK = Dx[x+1][y]; 
P[1].yK = Dyl[x+1]Ly]; 
P[2].xk = Dx[x+1][y+1]; 
P[2].yK = Dy[x+1][y+1J; 
P[3].xK = Dx[x/][ 1]; 
p[3].3K = Dual 7; 
P[4].xKk = P[O]J.xK; 

P[4]. Pro 1.yK; 

Move Rast ‚P[0].xk,P[O].yK); 
SetAPen(Rast, 0); 
PolyFill(Rast,P,5); 
SetAPen(Rast,1); 
PolyDraw(Rast,5,P); 

++X; 


} while (x < Dim-1); 
H4y; 
} while (y < Dim-1); 
/ 
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Bild 12.1 - Die Funktion z = sin(x)*sinh(y). 
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Verwendete Werte: 
Flx,ylizsincx)asinh(y) (x:8 bis 6pı,yiß bis ni/2), wx:=20 Grad, w:=30 Grad 


Bild 12.2 - Noch 'ne Funktion. 
————hghe 


Verwendete Werte: 
Fix,y] 22 a/Gezı 4) (-2 bis +2), x :2 40 nad, w = 60 Grad 
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Tips 


- Auch hier läßt sich optisch durch die Farbgebung 
viel gewinnen. Benutzen sie doch mal Farbgebungen 
wie bei den Landschaften aus dem nächsten Ab- 
schnitt. 

- Bevor Sie eigene Funktionen ausprobieren, machen 
Sie sich, um Meditationspausen zu umgehen, immer 
vorher klar, was dabei für Werte herauskommen, 
bzw. ob überhaupt etwas herauskommt. 


9; künstliche: kandschaften 


Wir werden Ihnen hier eine einfache Technik vor- 
stellen, mit der Sie mit wenig Rechenzeit eine 
künstliche Landschaft erzeugen und auf dem Bildschirm 
darstellen können. 


Als Ausgangsfigur benutzen wir dabei wieder das 
dreidimensionale Netz, das bereits aus dem vorherge- 
henden Abschnitt bekannt ist. Diesmal wird dieses 
Netz jedoch nicht mit einer Funktion "belegt", son- 
dern es wird jedem Punkt in diesem Netz eine bestimm- 
te Höhe so zugeordnet, daß eine Landschaft entsteht. 


Um die dazu benutzte Technik einfach verständlich 
zu machen, übertragen wir sie zunächst auf ein 
zweidimensionales Modell. Diese sind Ihnen gewiß auch 
aus Atlanten als Landschaftsquerschnitte bekannt. 
Nehmen wir an, wir wollten einen Querschnitt durch 
eine zufällige Gebirgslandschaft erzeugen. Eine sol- 
che Linie, die die verschiedenen Höhen anzeigt, kann 
man als Modell wie folgt erhalten: Stellen Sie sich 
vor, Sie befestigen ein Gummiseil waagerecht auf 
einer Pinnwand. Haben Sie es nur an den Enden 
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befestigt, so kann es jetzt in der Mitte auf- und 
abschwingen. Fassen Sie das Gummi in der Mitte an, 
ziehen es ein Stück nach oben oder nach unten und 
befestigen es dort duch eine weitere Nadel. Wiederho- 
len Sie diesen Vorgang mit den neu entstandenden 
Gummiabschnitten zwischen zwei Nadeln solange bis Sie 
keine Lust mehr haben, oder der Abstand zwischen zwei 
Nadeln zu klein wird. - Haben Sie mit dem nach oben 
oder unten ziehen nicht übertrieben, so müßten Sie 
jetzt einen mehr oder weniger typischen Landschaft- 
querschnitt vor sich haben. Die Übertragung dieses 
Modells auf drei Dimensionen erledigen wir gleich 
anhand unseres Netzes. Damit wir immer wieder halbie- 
ren können, muß die Dimension des Netzes eine Zweier- 
potenz sein, 64 soll für unsere Zwecke reichen. Wem 
dies zur Verdeutlichung leichter fällt, kann sich 
dieses Netz wieder aus einzelnen Gummiseilen zusam- 
mengeflochten vorstellen. Das hier vollständig Abge- 
druckte Programm macht nun nichts anderes als die 
anfänglich gegebene Fläche der Ausmaße 64x64 in immer 
kleinere Quadrate zu unterteilen und diese wiederum 
per Zufall ein kleines Stück nach oben oder nach 
unten zu ziehen. Bei der Darstellung auf den Monitor 
kann einerseits wieder die bereits bekannte Prozedur 
zur Ausgabe eines solchen Netztes verwendet werden, 
andererseits ist es möglich den Berechnungsvorgang zu 
beschleunigen, wenn man auf eine variable Darstellung 
verzichtet. Zur Demonstration verwenden wir diese 
Technik in unserem Programm "Fraktale Landschaft". 
Darüberhinaus benutzen wir den bereits aus dem vorhe- 
rigen Abschnitt bekannten Trick um hinter Erhebun- 
gen liegende Flächen zu verdecken. Negative Werte 
werden ausserdem auf Null gesetzt, wodurch Täler bis 
zur Höhe Null "aufgefüllt" werden. Durch entsprechen- 
de Farbenwahl entstehen so Seen oder Meere. Ansonsten 
ist auch hier die Farbgebung primitiv gehalten, da 
dies ein Punkt ist, der die Programmlänge explosions- 
artig vergrößern kann. Auch hierzu haben wir wieder 
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einen Bildschirmausdruck (Bild 12.3), der jedoch 
einen erheblichen Teil seines Reizes verloren hat. 
Die erzeugten Landschaften entfalten Ihre volle Wir- 
kung nur auf dem (Farb-) Monitor. 


Bild 12.3 - Eine zufällig erzeugte Landschaft. 


/* Landscape */ 


#include "exec/types.h" 

#inc Iude"graphics/gfx.h" 

#inc lude"intuition/intuition.h" 
#inc lude"math.h" 
#include"Display.h" 

#inc lude"Areakxtras.h" 


#define maxDepth 6 /* Die "Berechnungstiefe", legt 


auch die Dimension des Koordinatennetzes fest (Dim = 
2 Hoch maxDepth) */ 
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struct Coordinates 


SHORT xK,yK; 


7 


struct Window *Window; 
struct Screen *Screen; 
struct RastPort *Rast; 
struct ViewPort *View; 


/* Farbwerte für die einzelnen Farbregister */ 
int CI [] = 0,0,2, 2,4,10, 0,5,1, 0,6,1, 1,6,2, 
1,7,8,-.1:8,2,.2,8,3; 

2,9,3, 2,10,3, 2,11,3, 3,11,4, 4,11, 
4, 4,12,4, 5,9,3, 7,6,0, 

6,6,1, 5,3,2, 3,4,3, 3,313, 4,414, 
9,939:00,0: 7,1373 

8,8,8, 9,9,9, 10,10,10, 11,11,11, 
12,12,12, 13,13,13, 

14,14,14, 15,15,15 » 


SHORT F[65][65], /* Koordinatennetz */ 
Dx[65][65],Dy[65J][65]J, 
/* Bildschirmkoordinaten */ 
Height[65][65], /* Durchschnittlicher 
Höhenwert eines Polygons */ 
Grad[65][65], 
/* Steigung eines Polygons */ 
Dim, 
/* Dimension des Koordinatennetzes */ 
Depth, 
/* augenblickliche Berechnungstiefe */ 
D, , 
/* Hilfsvariablen für die Berchnungstiefe */ 
diff, maxh, Net; 
float sigma,delta, /* Höhenstartwerte */ 
Hoeva, /* Höhenvarianz */ 
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Smooth, /* Glättungsfaktor */ 
addrnd,pap; 
long seed; /* Zufallsgenerator- 
Initialisierung */ 
char ch; 


USHORT code, 1, J, h; 
ULONG Class; 


main () 


OpenIntui(); 
OpenGfx(); 


printf(">>> Programm zur Erstellung fraktaler 

Landschaften <<<"); 

pr int fl N 2=2=2=2=2=2==2=2=22=22=2=22=222222=22=22=2=22=2=2=2==2=2=====|" 

do {scanf("Seed (lange, beliebige Zahl für den 
Zufallsgenerator) : %I\n",seed); 

} while( 0 != 


0); 
do { scanf(" Hoehe (von 10 bis 100) : %d \n",sigma); 
} while( (sigma <= 10.0)!}! (sigma >= 100.0)); 
do {scanf(" Hoehenvarianz (von 0.75 bis 2.25) : 2 
",Hoeva 
} while( (Hoeva <= 0.75) }!! (Hoeva >= 2. 25)); 
do {scanf(" Glaettungsfaktor (von 0.0 bis 1.0) : 
%d\n", Smooth); 
} while( (Smooth <= 0.0) !! (Smooth >= 1.0)); 
do {scanf(" Ausgabe als >>N<< etz oder Er h); 
%c \n",ch); 
} while( (ch != 'n') && (ch != 'r')); if (ch == 'n') 
Net = 1; 
else 
Net = 0; 


Init(); 
OpenAl1(&Window,&Screen,&Rast,&View); 
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/* SetColors(Screen,&C01,32); */ 


Next(); /* Nächste Berechnungstiefe */ 
jr Depth > 1) 


Class = WaitEvent(Window,&code); 

Class = WaitEvent(Window,&code); 

Ausgabeberechnung(); /* Umwandlung in Bildschirm- 
koordinaten */ 


Move(Rast,0,10); 
ClearScreen(Rast); 
DrawLand(); /* Ausgabe der Landschaft */ 


++Depth; 
} while((Depth <= maxDepth)); 


/* Auf Close-Gadget warten und alles schließen */ 
Class = BR aaa ui . 
CloseWindow(Window); 

CloseScreen(Screen); 


OpenAll(Wind,Scr,RastP,ViewP) 


struct Window *tWind; 
struct Screen **Scr; 

struct RastPort **RastP; 
struct Viewort **ViewP; 


/* Einen low-res Screen öffnen. */ 

*Scr = (struct Screen *)MakeScr(0,0,320,250, 
"Fractals",5,NULL,NULL,NULL); 

if (*Scr == NULL) 
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exit(FALSE); 


/* Ein Fenster auf dem neuen Screen öffnen */ 
*Wind = (struct Window *)MakeWindow(0,0,319,250, 
0,0,"Fractals",WINDOWCLOSE ! ACTIVATE, 
HOUSEBUTTONS ] CLOSEWINDON, *Scr); 
if(*Wind == NULL) /* Fehler beim Öffnen 2? */ 
exit(FALSE); 


/* Adresse des Viewports und des Rastports holen */ 
*RastP = (*Wind)->RPort; 
tViewP = &( (*(( *Wind)->WScreen)).ViewPort); 


SHORT Av3(a,b,c) /* Average3 berchnet den 
Durchschnitt dreier Zahlen und 

addiert einen zufälligen Wert */ 
SHORT a,b,c; 


return ((a+b+c)/3 + (SHORT)(delta * ((rnd()* 
je .0-1.0)))); 


SHORT Av4(a,b,c,d) 

/* Average4 berchnet den Durchschnitt vierer Zahlen 
und addiert einen zufälligen Wert */ 

SHORT a,b,c,d; 


return ((a+b+c)/3 + (SHORT)(delta * ((rnd()* 
; .0-1.0)))); 


ComputePos (a,b) /* Berechnet die Zwischenpunkte 
(3.Stufe) */ 
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SHORT a,b; 


SHORT x, y, hx, hy; 
x=4a; 
hx = y+d; 

while((x <= Dim-d) && (hy <= Dim)) 

y=b; 

hy = y+d 
. (v <= Dim-d) && (hy <= Dim)) 

Folty] = Av4(F[x] [hy],F[x] [y-dI,F[hx] [y], 


nn F[x-d] [y]) 


AddRandom(a,b) /* Addiert zu den Höhenwerten einen 
zufälligen Wert */ 


SHORT a,b; 
SHORT X,Y; 


{ 
F[x] Lyl =F[x] [y] + (delta * ((rnd()*2.0-1.0))); 
Pahile (y <= b); 


x +#=D; 
} while (x <= b); 
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Init() /* Initialisierung der Eckpunkte */ 


{ 
SHORT t; 
float f; 
Dim = PowerInt(2, maxDepth); 
t= 0; 
delta = sigma; 
= (delta * rnd()); 


F[o] [0] = t + 50.01; 

t = (delta * (rnd()*2.0-1.0)):; 
F[0] [Dim] = t + 20.01; 

f = rnd(); 

t = (delta * f); 

F[Dim] [0] = t + 80.01; 

t = (delta * (0. -rnd())); 


F[Dim] [Dim] = t + 60.1; 
. = Dim / 2; 

= (delta * (rnd()*2.0-1.0)); 
[0] wi t + 70.01; 

=D/ 


Next() /* Nächste Berechnungstiefe */ 


SHORT x, y; 


delta = delta * Pow(0.5,Hoeva); /* Höhenwert delta 
verkleinern */ 


/* Erste Stufe der Berechnung: Alle Punkte ermitteln 


die diagonal zwischen vier bereits bekannten Höhen- 
werte liegen. */ 
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x=d; dof 
y=d; 

do { 

F[x] [y] = Avd(F[x]Ly+d],F[x+d][y-d],F[x-d] 
[y+d],F[x-d][y-d]); 


y+=D 
} while (!(y > Dim-d)); 
x += 


D; 
} while (!(x > Dim-d)); 


addrnd = rnd(); 
if (addrnd > Smooth) 
AddRandom(0,Dim); 


delta = delta * Pow(0.5,Hoeva); 
/* Höhenwert delta verkleinern */ 


/* Zweite Stufe der Berechnung: Alle Randpunkte er- 
mitteln, die zwischen drei bereits bekannten Höhen- 
werte liegen. */ 


xı=d; 
do 


Le] [0] = Av3(F[x+d] [O],F[x-d] [0],F[x] [d]); 
yo a Fra = Av3(F[x+d] [Dim],F[x-d] [Dim],F[x] 
im-d]); 
F[O] [x] = Av3(F[O] [x+d],FLOJ[x-a],F[d][x]); 
r Fra = Av3(F[Dim] [x+d],F[Dim] [x-d],F[Dim-d] 
AjJır 
x +=D; 
} while (!(x > Dim-d)); 


/* Dritte Stufe der Berechnung: Alle noch übrigge- 
bliebenen Zwischenpunkte ermitteln. */ 


ComputePos(d,D); 
ComputePos(D,d); 
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addrnd = rnd(); 
if (addrnd > Smooth) 


{ 
AddRandom(0,Dim); AddRandom(d,Dim-d); 


eo 
7 


D=DJ/ 2; /* Hilfsvariablen auf den nächsten Ver- 
kleinerungsschritt */ 
d=d/ 2; /* vorbereiten. */ 


Ausgabeberechnung () 

/* Berechnet zu den Werten F[x,y] die zugehörigen x- 
und y-Koordinaten */ 

/* sowie die Höhe und die Steigung der einzelnen 
Polygone. */ 


SHORT X,YıYT: 
float yr; 


do 


OtyT = 256 - (SHORT)(((fFloat)(2*y+192))/ 
64.0*((float)x)) + y; 


if (F[x][y] <= 0) /* Punkt liegt unter dem 
Meeresspiegel */ 

Dy[xJ[y] = 111 + 2%; 

else /* Punkt Tiegt über dem 


Meeresspiegel */ 


Dytxltyl = 111 + 2*% - F[x][y]; 
x += 


} „Alle (x <= Dim); 
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y+=D; 
} while (y <= Dim); 


maxh = 29; 


/* Durchschnittshöhe der Polygone berechnen */ 
je Val = (FEXJLyJ#FLx]Ly+DJ#+F[x+DJ[y+DJ+F[x+D] 
yJ)/4; 


if (0 (F[x][yJ>0) i1 (F[x][y+0J>0) ! (F[x+D] 
[yJ>0) !: (F[x+DJ[y+DJ>0) ) && (Height[x][yJ<=0) ) 


/* Meerespiegel für dieses Polygon nur setzen, wenn 
alle Eckpunkte im "Wasser" liegen. */ 
Height[x][y] = 1; 


/* Steigung des Polygons bestimmen */ 
Grad[x][y] = abs(abs(F[x][y]) + abs(F[x+DJ[yJ) - 
2*Height[x][yJ]) / D; 

if (Grad[x][y] > 7) 
Grad[x][y] = 7; 

if (maxh < Height[x][y]) 
maxh = Height[x][y]; 

x += D; 

} while (x <= (Dim-D)); 
+= D: 


Fohite (y <= (Dim-D)); 
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DrawLand () 
/* Grafische Ausgabe in das Fenster auf dem LoRes- 
Screen. */ 


SHORT x, y, C, S; 
float dh, ds, h; 


str 


uct Coordinates P[5]; 
> (float) maxh)/29.0; 


’ 

do { 

x = 0; 
do f 
P[O].xk = Dx[xI][. 
P[OJ.yK = Dyix1ly]; 


/* Fa 


P[1].xK = Dx[x+DJ[ yJ; 
P[1].yK = Dy[x+D][y]; 
P[2].xk = Dx[x+D][y+D]; 
P[2].yK = Dy[ el; 
P[3].xk = Dx[xI][. 

P[3].yK = orlaity.6) +0]; 
P[4].xK = P[0].xK 

P[4].yK = pfo].yK; 


rbbestimmung, dazu in h einen Höhenwert von 


maximal 30 */ 
= ((float)Height[x][y])/dh; 
= Grad[x][y]; 
if (h <= 0.0) /* H;he <= 0, also Meer(blau) */ 
£.:=.1% 
else 
if (h > 24.0) /* Höhe > 24, also Steingrau bis 
Schneeweis */ 


c = (2.5 + h); 
else 
if (s > 3) /* Steigung > 50 Grad, Also 
Felsgrau */ 
c =2/7 -S; 
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else /* sonst "normale" Höhenlinie */ 
c = 2.5 + h; 


Move(Rast,P[0].xK,P[O].yK); 
SetAPen(Rast,0); 
PolyFill(Rast,P,5); 
SetAPen(Rast,c); 
PolyDraw(Rast,5,P); 


x += D; 
} while (x <= Dim-D); 
y+-D; 
} while (y <= Dim-D); 


Tips: 


Die so erzeugten Grafiken lassen sich um ein 
vielfaches verschönern, indem Sie mehr Farben ein- 
setzten und die Auflösung erhöhen, also das 64x64 
große Netz durch ein 128x128 oder gar 256x256 
großes ersetzen. Dabei kann es allerdings Probleme 
mit dem Compiler geben, da ein doppelt dimensio- 
niertes Feld nicht beliebig groß werden kann. 
Eventuell müssen Sie ein großes Netz aus mehreren 
64x64 großen Feldern zusammensetzten. 

Lassen Sie uns noch folgende Anregungen zur Farbge- 
bung geben. Im Normalfall setzt sich die Landschaft 
aus 64x64 Feldern zusammen. Von jedem dieser Felder 
kennen wir die vier Höhenwerte der Eckpunkte. Da- 
raus läßt sich nicht nur die Durchschnittshöhe je- 
des einzelnen Feldes errechnen, sondern auch Stei- 
gung, bzw. Neigung um die x- und yAchse. Entspre- 
chend der Durchschnittshöhe setzt man Farben wie 
Meeresblau für die Höhe Null, verschiedene Grün- 
töne für die folgenden Höhen, sowie über einige 
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Grautöne, schließlich weiß für den Schnee auf den 
Bergspitzen. Ab einer gewissen Steigung können Sie 
verschieden Grautöne verwenden um zu verdeutlichen, 
daß es sich um felsige Gebiete handelt. 

- Um auch eine gewisse Schattierung hereinzubringen, 
kann man die Neigung zum Betrachter oder einer 
imaginären Lichtquelle berechnen. Je stärker sich 
ein Feld von diesen Werten neigt, desto schwächer 
wird Licht reflektiert, also um so dunkler muß die- 
ses Feld erscheinen. 


Abschließend befassen wir uns mit der Darstellung 
einer Kugeloberfläche mit Hilfe von Längen- und Brei- 
tengraden. Es entsteht also lediglich ein Gittermo- 
dell einer Kugel, dessen Auflösung wir dadurch erhö- 
hen, daß wir sie nicht aus einzelnen Linien, sondern 
aus einzelnen Punkten zusammensetzen. Dieses Verfah- 
ren ist zwar etwas zeitaufwendiger, aber setzt man 
die Kugel aus nur wenigen Längen- und Breitengraden 
zusammen, So erscheint bereits nach wenigen Minuten 
die fertige Kugel auf dem Bildschirm. Zur Erstellung 
betrachten wir zunächst nur die Längengrade. In 
unserem definierten Koordinatensystem sind dies 
Kreise, die alle den gleichen Radius haben, nämlich 
den der Kugel. Der Mittelpunkt eines jeden Kreises 
befindet sich im Ursprung des Koordinatensystems. Den 
Nullmeridian legen wir in die xy-Ebene, er erscheint 
also auf dem Bildschirm als Kreis. Dieser Kreis kann 
mit Hilfe der Rotationsmatrix wie folgt berechnet 
werden: die Schnittpunkte des Kreises mit der x-Achse 
sind uns durch den Radius bekannt. Drehen wir nun mit 
Hilfe der Rotationsmatrix einen dieser Punkte 
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schrittweise um die z-Achse, so erhalten wir die 
Punkte, die auf dem Kreis liegen. Der erste Meridian 
wäre somit berechnet. Die anderen erhalten wir, wenn 
wir diesen Meridian Schrittweise um die y-Achse 
drehen. 


Die Breitengrade dagegen haben nicht alle den 
gleichen Radius. Der Aquator hat den größten Radius, 
den der Kugel, während die anderen zu den Polen hin 
immer kleiner werden. Diese Kreise sind alle parallel 
zu der xz-Ebene und ihre Mittelpunkte liegen alle auf 
der y-Achse, der des Aquators im Ursprung des Koordi- 
natensystems. Diesmal liegt unser Ausgangspunkt zur 
Berechnung der Kreise nicht auf einer der Koordina- 
tenachsen, sondern auf dem Nullmeridian. Tasten wir 
diesen Schrittweise ab und drehen diese Punkte um die 
y-Achse, so erhalten wir bereits die gewollten Brei- 
tenkreise. 


In der Praxis ist es über die Rotationsmatrix mög- 
lich diese Kugel auch noch beliebig zu drehen, 
indem wir einfach die gewünschten Drehwinkel wie 
bekannt in die Rotationsmatrix einsetzen. Dabei ist 
es hier ein Leichtes, die hintenliegenden Punkte aus- 
zurechnen und gar nicht erst zu zeichnen. Bei unserer 
Kugel sind alle Punkte unsichtbar, die hinter der xy- 
Ebene liegen, also negative z-Koordinaten haben. Hat 
also ein Punkt eine z-Koordinate kleiner als Null, so 
wird er nicht gesetzt. Der wesentliche Programmteil 
sieht so aus: 


/* Kugel von Olaf Pfeiffer, 
C-Version von Paul Lukowicz */ 
#inc lude"Display.h" 


#inc lude"graphics/gfx.h" 
#inc lude"intuition/intuition.h" 
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#inc lude"math.h" 
#include"stdio.h" 


#define pi 3.14 
#define wx 0.62 /* Drehung um die x-Achse */ 
#define wz 0.39 /* Drehung um die z-Achse */ 
#define wy 0.0 /* Drehung um die y-Achse 
(uninteressant) */ 

#define Radius 75.0 

/* Kugelradius in Pixeln (10 - 100) */ 
#define Laengen 12.0 

/* Anzahl der Längengerade (2 - 32) */ 
#define Breiten 11.0 

/* Anzahl der Breitengerade (1 - 31)*/ 


struct Window *Window; 
struct Screen *Screen; 
struct RastPort *Rast; 
struct ViewPort *View; 


float Ss; 
float M [5] [5]; 
int CI[] =T0, 0,2, 2, 4,10, 0, 5,1, 0, 
6, 1, 1,6, 2, 1, 7,2, 

1, 8, 2, 2,8, 3, 2, 9, 3, 2, 
10,:3,: 2,11;,:3,. 3,11; 4; 

4,11, 4, 4,12, 4, 5, 9, 3, 7, 
6, 0, 6, 6, 1, 5,95, 2, 

5, 4, 3; I; 3, 3; 4, 4, 4, 9, 
9:59,: 050,0: 74 7:7, 

8, 8, 8, 9, 9, 9, 10,10,10, 11, 
11,11, 12,12,12, 13,13,13, 14,14, 


14, 15,15,15 


o 
7 
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main () 


USHORT code, i, J, h; 
ULONG Class; 


OpenIntui(); 
OpenGfx(); 


/* Einen low-res Screen öffnen. */ 

Screen = (struct Screen *)MakeScr(0,0,320,250, 
"HAM-Demo",5,NULL,NULL,NULL); 

if (Screen == NULL) 

exit(FALSE): 


/* Ein Fenster auf dem neuen Screen öffnen */ 
Window = (struct Window *)MakeWindow(0,0,320, 
250,0,0, "Ham-Demo", 
WI NDOWCL OSE ! ACTI VA TE ! WINDOWDRAG, 
CLOSEWINDOW, Screen); 
if(Window == NULL) /* Fehler beim Öffnen ?_ */ 
exit(FALSE ); 


/* Adresse des Viewports und des Rastports holen, 
Farben setzten */ 
Rast = (Window)->RPort; 
View = &((*(Window->WScreen)).ViewPort); 
/*for(i = 0; i<32;SetRGB4(View, (i+=3),Col[i-3],Col 
[i- BIO ER i-1J)));/ 
= 1.0 / Radius; 
Matrix (); 
LCircle(Laengen); 
BCircle(Breiten); 


/* Auf Close-Gadget warten und alles schließen */ 
Class = WaitEvent(Window,&code); 
CloseWindow(Window); 

CloseScreen(Screen); 
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/* Belegen der Rotationsmatrix */ 


Matrix () 


{ M[1] [1] = cos(wz) * cos(wy); 
M[2] [1] =-cos(wz) * sin(wy); 
M[3] [1] = sin(wz); 
M[1] [2] = cos(Wx) * sin(wy) + sin(wx) 
cos(wy) * sin(wz); 
M[2] [2] = cos(w) * cos(wy) - sin(wx) 
sin{wy) * sin(wz); 
M[3] [2] a * cos(wz); 
M[1] [3] = sin(wx) * sin(wy) - cos(wx) 
* cos(wy) * sin(wz); 
"[2] [3] = sin() * cos(wy) + cos(wx) 
sin(wy) * sin(wz); 
} M[3] [3] = Ban ir * cos(wz); 


Drawxyz(p, q) 
float p,g; 


float x,y,z,x1,yl,z1; 
int Posx,Posy,c; 


x = cos(q) * cos(} J; 
y = cos(q) * sin(p); 
. = ‚sin(q 

- n[1][1] *x+M[2][1] * y + M[3J][1] * z; 
y = M[1][2] * x + M[2][2] * y + M[3][2] * z; 
e Ze: x + M[2][3] * y + M[3][3] * z; 
if( yl>=0. 


Posx = 160 + (int)(Radius * x1); 
Posy = 130 + (int)(Radius * zl); 
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c = (int)(yl * 30.0) + 2; 
SetAPen(Rast,c); 
WritePixel(Rast,Posx,Posy); 


14 


} 


LCircle (step) 


float step; 


float p, g, st,pi2; 
st = pi/step; 
pi2 = 2.0 * pi; 
for(p = 0.0; p< pi; p= pt+st) 
for(q = 0.0; q < pi2;Dramxyz(p,g), q=q +s); 
BCircle(step) 


float step; 


float p,g,st,pi2,p13; 

pi2 = pi / 2.0; 

pi3 = pi * 2.0; 

st = pi / (step +1); 

for(q = (-pi2 + st);q <= (pi2 - st);p = p) 


for(p = 0.0; p < pi3;Drawxyz((p),q),p = P+s); 
gqg=qg+tst; 


} r 
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Bild 12.4 - Kollage von mehreren durch das Programm 
"Kugel" erzeugte Kugeln. 


Kugel L" 
fl Kugel rv FH 


4 
\ 
\ 


Tips: 


- Wiedereinmal zur Farbgebung: in diesem Beispiel ist 
die Farbe abhängig von der Tiefe, von der z-Koordi- 
nate eines Punktes. Wählt man die Farben entspre- 
chend, entsteht der Eindruck unser Modell würde 
direkt von vorne beleuchtet. Wollen Sie eine seit- 
liche Beleuchtungsquelle simulieren, so müssen Sie 
die Farbgebung winkelabhängig machen. Von jedem 
Punkt kennen Sie durch die Koordinaten auch die 
Winkel, in denen er zu den einzelnen Achsen steht. 
Setzen Sie beispielsweise den Punkt der höchsten 
Reflexion, also der Punkt der auf der Kugelober- 
fläche am hellsten erscheint, so, daß er zu allen 
drei Achsen im Winkel Pi/4 steht. Je größer nun der 
Unterschied der drei Winkel eines Punktes zu dem 
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gesetzten Wert (Pi/4) ist, desto dunkler muß dieser 
Punkt werden. 


Wir haben Ihnen nun viele verschieden Techniken 
vorgestellt, mit denen Sie innerhalb kurzer Zeit zum 
Teil bereits recht verblüffende Computergrafiken er- 
stellen können. Für diejenigen unter Ihnen, die be- 
reits eigene Änderungen, Erweiterungen oder Verbes- 
serungen an diesen zum Teil recht einfachen Grafikal- 
gorithmen vorgenommen haben noch ein Vorschlag: ver- 
suchen Sie die Techniken miteinander zu verknüpfen! 
Erstellen Sie doch zum Beispiel einen Landschafts- 
auschnitt und "bepflanzen" Sie diesen mit verschie- 
denen Gewächsen der L-Systeme, womöglich auch noch in 
Abhängigkeit von der jeweiligen Höhe. 


Oder eine andere Idee: schreiben Sie das Programm 
zur Erstellung der Kugeln so um, daß nicht mehr Punkt 
für Punkt sondern nur noch Schnittpunkt für Schnitt- 
punkt (von Längen- und Breitengrad) berechnet wird 
und diese dann durch Linien verbunden werden. So ist 
es nicht mehr weit bis zu dem Punkt, wo Sie das Netz 
der fraktalen Landschaft auf diese Kugel projezieren 
können. Somit hätten Sie dann ein Programm zur 
Erstellung Ihrer eigenen Planeten oder, je nach 
Farbgebung und Höhenvarianz, Monde und Kometen. 
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Dieser Teil des Anhangs enthält die wichtigsten Da- 
tenstrukturen der Intuition in alphabetischer Reihen- 
folge. Dabei haben wir vor allem die ausgewählt, die 
für die Programmierung und insbesondere die Grafik- 
programmierung wichtig sind. Da einige der Daten- 
strukturen relativ lang sind, haben wir uns bei den 
Datenstrukturen Window und Preferences auf die 
wesentlichen Teile beschränkt. 


Diese Struktur wird von der Routine DrawBorder ver- 
wendet, um einen beliebigen Rahmen zu zeichnen. Sie 
beinhaltet alle Informationen, die Draw-Border für 
das Zeichnen der Umrandung braucht. Sie können über 
NextBorder mehrere Border-Strukturen verketten, um 
sie mit einem DrawBorder-Aufruf ausgeben zu können. 


struct Border 


SHORT LeftEdge, TopEdge; 

UBYTE FrontPen, BackPen, Drauwffode; 
BYTE Count;J 

struct Border *NextBorder; 


7 


LeftEdge, TopEdge: Hierbei handelt es sich um die zum 
Rastport relative Position des Rahmens (x- und y-Ko- 
ordinate in Pixels). 
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FrontPen: Die Nummer des Farbregisters mit dem Farb- 
wert, der als Vordergrundfarbe beim Zeichnen des Rah- 
mens benutzt werden soll. 


BackPen: Die Hintergrundfarbe. 


DrawMode: Der Zeichenmodus, in dem der Rahmen ge- 
zeichnet werden soll. (Siehe Prozedur Draw) 


Count: Anzahl der XY-Koordinatenpaare, die die Eck- 
punkte des Rahmens bilden. 


*XY: Die Koordinatenpaare relativ zur linken oberen 
Ecke. Sie werden in einem Speicherbereich, auf den XY 
zeigt, abgelegt. 


*NextBorder: Zeiger auf die nächste Border-Struktur, 
die ebenfalls noch ausgeführt werden soll. 


Ist dieser Wert gleich NULL, so wird keine weitere 
Umrandug gezeichnet. 


Dies ist eine kurze Struktur für die einfache Über- 
tragung von Grafikausschnitten zu einem RastPort mit 
Hilfe der DrawlImage-Prozedur. Zusätzlich bietet diese 
Struktur über PlanePick und PlaneOnOff die Möglich- 
keit, dabei die Daten in ausgewählte Bitplanes des 
Screens zu schreiben. 
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struct Image 


SHORT LeftEdge,TopEdge, Width, Height, Depth; 
USHORT *ImageData; 

UBYTE PlanePick, Plane0OnOff; 

struct Image *Nextlmage; 
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LeftEdge, TopEdge: Position der linken oberen Ecke 
des Bildausschnitts relativ zum Rastport (x- und y- 
Koordinaten in Pixels). 


Width, Height: Die Breite und Höhe des Ausschnitts in 
Pixel. 


Depth: Die Tiefe der Grafik, also die Anzahl der Bit- 
planes. 


*ImageData: Ein Zeiger auf den Anfang der Grafikdaten 
im Speicher (muß CHIP-RAM sein) Die Datem sind Bit- 
planeweise hintereinander gespeichert. 


PlanePick: Hier geben Sie an, in welche Bitplanes des 
Rastports die Bildaten des Images geschrieben werden 
sollen. 


Plane0nOff: Gibt an, welche Farbe den Punkten zuge- 
ordnet wird, die in den Imagedaten den Wert NULL ha- 
ben. 


*NextImage: Zeiger auf die nächste Image-Struktur, 


die auch noch ausgegeben werden soll. Ist dieser Wert 
gleich NULL, so wird kein weiteres Image gezeichnet. 
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Diese Struktur wird von Intuition benutzt, um SySs- 
temnachrichten über Ereignisse in einem Fenster zu 
übermitteln. 


struct IntuiMessage; 


struct Hessage ExecHessage; 
ULONG Class; 

USHORT Code,Qualifier; 

APTR IAddress; 

SHORT MouseX, MouseY; 

ULONG Seconds, Micros; 

struct Window *IDCMPWindow; 
struct Intuillessage *SpecialLink; 


}i 


Class: Dieses Feld enthält die IDCMPFlags der in ei- 
nem Fenster aufgetretenen IO-Ereignisse, oder NULL 
talls keine Ereignisse in dem Fenster registrert wur- 
den, zu dem die Struktur gehört. Zur Bedeutung der 
Flags siehe unten. 


Code: In diesem Feld werden weitere Werte, wie z.B. 
die Menü-Nummern oder der ASCII-Code der gedrückten 
Taste. 


Qualifier: Dies ist eine Kopie des aktuellen Eingabe- 
Qualifiers (z.B. gedrückte ALT-Taste). 
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IAddress: Ein Zeiger auf die Adresse des Intuition- 
Gebildes, das diese Nachricht auslöste, z.B. ein Zei- 
ger auf eine Gadget oder Requester-Struktur. 


MouseX, MouseY: Dies sind die x-und y-Koordinaten der 
Mausposition (relativ zur linken oberen Ecke des ak- 
tuellen Fensters) zur Zeit des Eintreffens der Nach- 
richt. 


Seconds, Micros: Die Systemzeit in Sekunden und Mi- 
krosekunden, zu der die Nachricht geschickt wurde. 


*IDCMPWindow: Zeiger auf das Fenster, zu dem diese 
Struktur gehört. 


Folgende IntuiMessage- IDCMPFlags können abgefragt 
werden (In der dahinter stehenden Bemerkung wird kurz 
erklärt, was es bedeutet, wenn dieses Bit gesetzt 
ist): 


SIZEVERIFY 0x00000001 
Der Benutzer will die Fenstergröße verändern. 
NEWSWIZE 0x00000002 


Die Größe des Fensters hat sich verändert. 


REFRESHWINDOW 0x00000004 
Die Refresh-Routine soll aufgerufen werden. 


MOUSEBUTTONS 0x00000008 
Ein Mausknopf wurde betätigt. In Code kann stehen: 


SELECTDOWN, SELECTUP: Die linke Taste wurde ge- 
drückt, bzw. wieder losge- 
lassen. 

MENUDOWN, MENUUP: Analog für die rechte Taste. 
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MOUSEMOVE 0x00000010 
Die Maus wurde bewegt. 


GADGETDOWN 0x00000020 

Die Maustaste wird über einen Gadget "gedrückt" ge- 
halten. Die Adresse des Gadgets finden Sie in IAdd- 
ress. 


GADGETUP 0x00000040 

Die Maustaste wurde über einem Gadget "losgela- 
ssen". Die Adresse des Gadgets finden Sie in IAdd- 
ress. 


REQSET 0x00000080 
Ein Requester wurde aktiviert. 


MENUPICK 0x00000100 

Ein Menüpunkt ist ausgewählt worden. Die Menü-Num- 
mer (in der Form eines Intuition MenuNumber) finden 
Sie in Code. 


CLOSEWINDOW 0x00000200 
Das Close-Gadget wurde angeklickt. 


RAWKEY 0x00000400 

Eine Taste wurde gedrückt. Code enthält die Nummer 
der Taste. Zusätzliche Information wie z.B. gedrückte 
Alt- oder Amiga-Taste in Qualifier. 


REQVERIFY 0x00000800 
Der Benutzer versucht ein Requester zu aktivieren. 


REQCLEAR 0x00001000 
Der letzte Requester vom Screen wurde gelöscht. 


MENUVERIFY 0x00002000 
Der Benutzer versucht ein Menü zu aktivieren. 
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NEWPREFS 0x00004000 
Neue Preferences wurden eingelesen. 


DISKINSERTED 0x00008000 
Eine neue Diskette wurde eingelegt. 


DISKREMOVED 0x00010000 
Eine Diskette wurde herausgennomen. 


WBENCHMESSAGE 0x00020000 
Es ist eine Nachricht der Workbench vorhanden. 


ACTIVEWWINDOW 0x00040000 
Das Fenster wurde aktiviert (angeklickt). 


INACTIVEWWINDOW 0x00080000 
Das Fenster wurde inaktiviert (Ein anderes also an- 
geklickt) ! 


DELTAMOVE 0x00100000 
Die Maus wurde bewegt. Die angegebenen Mauskoordi- 
naten sind hier relative Koordinaten. 


VANILLAKEY 0x00200000 

Eine Taste wurde gedrückt. Der Tastencode wurde in 
ASCII-Codes umgewandelt und liegt in Code vor. (Falls 
eine Taste gedrückt wurde). 


INTUITICKS 0x00400000 
Es liegt eine Timer-Nachricht vor. 


LONELYMESSAGE 0x80000000 


Ist dieses Bit gelöscht, so ist es eine Systemnach- 
richt an einen Task, sonst eine von einem Task. 
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Die Datenstruktur IntuiText ermöglicht die Ausgabe 
einer oder mehrerer Zeichenketten, mit der Ausgabe- 
routine PrintIText. Dabei können etliche Eigenschaf- 
ten des Textes unabhängig von den Einstellungen des 
Rastports bestimmt werden. 


struct Intuilext 


UBYTE FrontPen, BackPen, Drawflode; 
SHORT LeftEdge, TopEdge; 

struct TextAttr *ITextFont; 

UBYTE *IText; 

struct Intuilext *NextText; 


O 
7 


FrontPen, BackPen: Die Nummer der Farbregister, deren 
Farbwert als Vordergrund-, bzw. Hintergrundfarbe für 
den Text benutzt wird. 


DrawMode: Der Zeichenmodus, in dem geschrieben werden 
soll. 


Leftedge, TopEdge: Die zum aktuellen Fenster relative 
x- und y-Koordinate, an der die linke, obere Ecke des 
Textes stehen soll. 


ITextFont: Dies ist der Zeiger auf den Zeichensatz 
(Eigentlich TexeAter- Struktur). der für die Textaus- 
gabe benutzt werden soll. Ist dieser gleich NULL 
gesetzt, so wird der aktuelle Zeichensatz verwendet. 
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*IText: Zeiger auf den auszugebenen Textstring, der 
mit einer Null enden muß. 


*NextText: Zeiger auf die nächste IntuiText-Struktur, 
die noch ausgegeben werden soll, oder NULL für Ende. 


Diese Struktur wird jedesmal benutzt, wenn ein neu- 
er Screen geöffnet wird. Beachten Sie auch die Struk- 
tur Screen, die nach dem Offnen weitere Informationen 
eines Screens enthält. 


struct NewSereen 


SHORT LeftEdge, TopEdge, Width, Height, Depth; 
UBYTE DetailPen, BlockPen; 

USHORT ViewModes, Type; 

struct TextAttr *Font; 

UBYTE *DefaultTitle; 

struct Gadget *Gadgets; 

struct BitMap *CustomBitMap; 


}i 
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LeftEdge, TopEdge: Die x- und y-Koordinaten der lin- 
ken, oberen Ecke der S$creenbegrenzung, wobei LeftEdge 
nicht benutzt wird, da der Screen immer am linken 
Bildschirmrand beginnt. 


Width, Height: Die Gesamtbreite und -höhe des Screens 
in Pixel. 


Depth: Die Tiefe des Screens, also die Anzahl der 
verwendetete Bitmaps. Im allgemeinen stehen dann 2 
hoch dieser Zahl Farben in diesem Screen zur Verfü- 


gung. 


DetailPen: Die Nummer des Farbregisters, das den 
Farbwert enthält, mit dem der "Zeichenstift" in die- 
sem Screen zeichnen, bzw. schreiben soll. 


BlockPen: Die Nummer des Farbegisters, das den Farb- 
wert enthält, mit dem die Menüzeile mit dem Titel und 
den Gadgets gezeichnet werden soll. 


ViewModes: Bestimmt die Anzeigemodi des neuen 
Screens. Sie können hier einen oder mehrere folgender 
Flags übergeben: 


HIRES: 
3 Modus an (640 Pixels horizon- 
tal). 


INTERLACE: 
Interlacemodus an (max 512 Bildzeilen). 


DUALPF: 
Dual Playfields Modus an 


HAM: 
Hold-And-Modify Modus an. 
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SPRITES: 
Sprites können auf dem Screen dargestellt wer- 
den. 


Wird HIRES und/oder INTERLACE nicht gesetzt, dann 
wird ein LowRes (320 Pixel horizontal) und/oder Nor- 
malmodus eingeschaltet. 


Type: Dieser Wert gibt an, ob es sich um einen Work- 
bench-Screen oder Custom-Screen handelt. 


*Font: Dies ist ein Zeiger auf den Zeichensatz, der 
innerhalb dieses Screens verwendet werden soll. 


*DefaultTitle: Ein Zeiger auf den Textstring, der 
den Titel dieses Screens beinhaltet. Dieser erscheint 
dann in der Menüleiste. 


*Gadgets: Dies ist ein nicht benutzter Zeiger, den 
Sie auf NUEL setzten sollten. 


*CustomBitMap: Öffnen Sie einen Custom-Screen (und 
nicht ein Workbench-Screen) ,so haben Sie die Möglich- 
keit,eine eigene Bitmap zu verwenden. Setzen Sie dazu 
in Types die CUSTOMBITMAP-Flags und stellen Sie die- 
sen Zeiger auf die BitMap-Struktur dieser Bitmap. 


Wird ein neues Fenster auf einem Screen geöffnet, 
so wird diese Struktur benutzt, um die Daten des neu- 
en Fensters an OpenWindow zu übergeben. Dabei ist die 
Struktur Window wieder diejenige, die nach dem Öffnen 
weitere Informationen über ein Fenster enthält. 
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struct NewWindow 


SHORT LeftEdge, TopEdge, Width, Height;J 

ULONG IDCHPFlags, Flags; 

struct Gadget *FirstGadget; 

struct Image *CheckHark; 

UBYTE *TITLE 

struct Screen *Screen 

struct BitHMap *BitMap; 

SHORT MinWidth, MinHeight, MaxWidth, MaxHeight; 
USHORT Type; 


B 


LeftEdge, TopEdge: Die x- und y-Koordinaten der lin- 
ken oberen Ecke des Fensters in Pixels relativ zum 
Screen. 


Width, Height: Die Gesamtbreite und -höhe des Fen- 
sters in Pixels. 


DetailPen: Die Nummer des Farbregisters, die den 
Farbwert enthält, mit dem der imaginäre Zeichenstift 
in diesem Fenster zeichnen, bzw. schreiben soll. 


BlockPen: Die Nummer des Farbegisters, die den Farb- 
wert enthält, mit dem die Menüzeile mit dem Titel und 
den Gadgets, sowie der Rahmen gezeichnet werden soll. 


IDCMPFlags: Hier geben Sie die IDCMP-Flags, die 
gleich beim Offnen des Fensters gesetzt werden sol- 
len, an. Zur Bedeutung der Flags siehe IDCMPMessage 
und Window. 
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Flags: Die WindowFlags, die einige wichtige Eigen- 
schaften des Fensters bestimmen. Das Setzen eines 
Flags veranlaßt OpenWindow dazu, das Fenster beim 
Offnen mit der entsprechenden Eigenschaft auszustat- 
ten. 


WINDOWSIZING: In dem Fenster erscheint unten links das 
Sizing-Gadget, welches dem Benutzer erlaubt,die Größe 
des Fensters zu verändern. Dabei können Sie durch die 
Flags SIZE(B)RIGHT oder SIZEBOTTOM bestimmen, ob das 
Gadget dem rechten, dem unteren oder beiden Rändern 
zugeordnet werden soll. 


WINDOWDEPTH: Mit diesem Flag ermöglichen Sie es dem 
Anwender, das Fenster in den Vorder- oder Hintergrund 
zu schalten, denn die dafür verantwortlichen Gadgets 
erscheinen in der oberen rechten Ecke des Fensters. 


WINDOWCLOSE: Das Close-Gadget zum Schließen des Fen- 
sters erscheint in der linken oberen Ecke des Fen- 
sters. Wird es vom Benutzer angeklickt, so erhalten 
Sie von der Intuition eine entsprechende Message. 


WINDOWDRAG:Haben Sie dieses Flag gesetzt, so kann der 
Benutzer das Fenster durch Ziehen der Titelleiste 
verschieben. 


GIMMEZEROZERO: Aktiviert ein GZZ-Fenster, d.h. der Ko- 
ordinaten-Nullpunkt liegt in der inneren - oberen 
-linken Ecke des Fensters. 


SIMPLE REFRESH: Wird ein Teil des Fensters von einem 
anderen enthüllt, so muß der Inhalt neu aufgebaut 
werden. 


SMART REFRESH: Der Inhalt des Fensters muß nur neu 
aufgebaut werden, wenn das Fenster vergrößert wird. 
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SUPER BITMAP: Setzen Sie dieses Bit, um ein SuperBit- 
map-Window zu erhalten. Vergessen Sie nicht, daß BIT- 
MAP dabei auf Ihre eigene BitMap-Struktur zeigen muß. 
BACKDROP: Aktiviert das Fenster als ein Backdrop-Fen- 
ster. 


REPORTMOUSE: Das Fenster erhält die Mauszeigerbewe- 
gungen als x- und y-Koordinaten. 


BORDERLESS: Das Fenster erscheint ohne Rahmen. Beach- 
ten Sie dabei, daß jedoch Rahmenteile erscheinen 
können, wenn Sie System-Gadgets oder einen Titeltext 
definiert haben. 


ACTIVATE: Das Fenster wird beim Öffnen auch automa- 
tisch aktiviert. Eine logische Folge ist die inakti- 
vierung eines eventuell vorhandenen aktiven Fensters, 
daß möglicherweise gerade zur Tastatureingabe benutzt 
wird. Es kann also passieren, daß Sie dem Anwender 
"den Boden unter den Füßen wegziehen", indem Sie ihm 
die Kontrolle über sein Fenster klauen. 


NOCAREREFRESH: Setzen Sie dieses Bit, wenn Sie keine 
Refresh-Messages von der Intuition erhalten wollen. 


RMBTRAP: Durch Setzen dieses Bits legen Sie fest, daß 
zu diesem Fenster keine Menüleiste definiert ist. Sie 
erhalten jedoch weiterhin die MouseButtonEvents. 


*FirstGadget: Dies ist ein Zeiger auf eine dGadget- 
Struktur, mit der Sie die zu diesem Fenster gehören- 
den Gadgets definieren können. Achtung! die System- 
Gadgets werden durch Flags aktiviert. 


*CheckMark: Dies ist ein Zeiger auf die Image-Struk- 
tur der Grafik des Menü-Checkmarks. Das ist die Gra- 
fik, die in Auswahlmenüs erscheinen soll, wenn diese 
Auswahl ( z.B. eine bestimmte Schriftart) aktiviert 
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ist. Steht hier eine Null, so wird die voreingestell- 
te Grafik (ein Haken) benutzt. 


*Title: Der Zeiger auf den Textstring, der oben im 
Fenster als Titel erscheinen soll. 


*Sceen: Dieser Zeiger braucht Sie nur zu interessie- 
ren, wenn sie ein Custom-Screen eröffnet haben, und 
wollen, daß dieses Fenster dort geöffnet wird. In 
diesem Fall muß dieser Zeiger auf die entsprechende 
Screen-Struktur zeigen. 


*Bitmap: Wenn Sie für dieses Fenster eine eigene Bit- 
Map verwenden wollen (siehe auch SUPERBITMAP-Flag), 
so muß hier der Zeiger auf Ihre BitMap-Struktur steh- 
en. 


Minwidth, MinHeigth, MaxWidth, MaxHeight: Diese Vari- 
ablen brauchen Sie nur zu interessieren, wenn Sie das 
Sizing-Gadget zum Verstellen der Fenstergröße mit der 
Maus, aktiviert haben. Soll es dem Benutzer also er- 
laubt sein, die Größe dieses Fensters zu verädern, so 
können Sie hier die Minimum-, bzw Maximumwerte einge- 
ben, über die hinaus das Fenster nicht vergrößert o- 
der -kleinert werden darf. Es handelt sich dabei wie- 
der um relative x- und y-Koordinaten zur linken, 
oberen Ecke des Fensters. 


Type: Hier steht, um welchen Fenster-Typ es sich han- 


delt. Näheres darüber finden Sie in der Screen-Struk- 
tur. 
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Die Datenstruktur Preferences beinhaltet sämtliche 
Einstellungen, die Sie von der Workbench aus einge- 
stellt haben, oder die noch voreingestellt sind. Sie 
gehört zu den längsten Datenstrukturen, so daß wir 
sie hier nicht auflisten, sondern lediglich ein paar 
interessante Werte herauspicken und beschreiben. Da- 
bei gibt die Zahl hinter der Variablen den Offset an, 
also ihre Position in der Struktur. 


PointerMatrix USHORT, 28: Die Grafik des Default- 
Mauszeigers, zerlegt in 36 Wörter des Typen USHORT. 


X0öffset, YOffset BYTE, 100: Die x- und y-Position 
(von der linken oberen Ecke) des Aktivierungspunktes 
des Default-Mauszeigers, also z.B. die Position der 
Pfeilspitze. 


color17, color18, color19 USHORT, 102: Die drei Far- 
ben des Default-Mauszeigers. 


color0, colorl, color2, color3 USHORT, 110: Die vier 
Farben des Workbench-Screens. 


ViewXOffset, ViewYOffset BYTE, 118: Die Position des 
Workbench-Screen relativ zum Viewport. 


ViewInitX, ViewInitY WORD ,120: Die Initialisierungs- 
werte des Offsets zum Viewport. 


PrintImage USHORT, 168: Hier wird über das erste Bit 
angegeben, ob Grafiken negativ oder positiv zum Dru- 
cker ausgegeben werden. Ist das Bit gesetzt, so heißt 
das, daß der Grafikausdruck "negativ" erfolgt. 
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PrintAspect USHORT, 170: Ist hier das erste Bit ge- 
setzt, so werden Grafiken vertikal, also um 90 Grad 
verdreht auf dem Drucker ausgegeben. Bei gelöschtem 
Bit erfolgt ein "normaler", horizontaler Ausdruck. 


PrintThreshold WORD, 174: Haben Sie in PrintShade die 
Ausgabe in Graustufen ausgewählt, so können Sie hier 
die Graustufen den Farben zuordnen. 


Dies ist bereits eine etwas längere Struktur, so 
daß wir sie hier zwar vollständig auflisten, jedoch 
uns in der Beschreibung auf das wichtigste Beschrän- 
ken. 


{ 


struct Screen *NextScreen; 

struct Window *FirstWindow; 

SHORT LeftEdge, TopEdge, Width, Height, MouseY, 
USHORT Flags; MouseX; 
UBYTE *Title, *DefaultTitle; | 
BYTE BarHheight, BarVBorder, BarHBorder, MenuHBord 
BYTE WBorTop, WBorLeft, WBorRight, WBorBottom;E’r 
struct TextAttr *Font;J 

struct RastPort RastPort; 

struct BitMap BitMap; 

struct Layer Info LayerInfo; 

struct Gadget *FirstGadget 

UBYTE DetailPen, BlockPen; 

USHORT SaveCo lorO; 

struct Layer *BarLayer; 

UBYTE *ExtData, *UserData; 


hi 
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*NextScreen: Dies ist ein Zeiger auf den nächsten 


Screen in der Intuition-Screenliste. 


NULL, 
Screen. 


so ist es 


Ist er gleich 


der letzte, bzw. der einzige 


*FirstWindow: Hierbei handelt es sich um einen Zeiger 


auf das erste von mehreren zu dem Screen 
Fenstern. Ist dieser Wert gleich NULL, 


gehörenden 
so wurden 


keine Fenster definiert. 


LeftEdge, TopEdge, Width, Height: 


die Dimensionen des 


Diese Werte geben 
Screens an und werden wie in der 


Struktur NewScreen benutzt. 


MouseY, MouseX: Die Position des Mauszeigers auf die- 


sem Screen. 


Flags: 

SCREENTYPE OxOOOF 
WBENCHSCREEN Ox0001 
CUSTOMSCREEN Ox000OF 
SHOWTITLE 0x0010 


0x0020 
CUSTOMBITMAP 0x0040 


BEEPING 


SCREENBEHIND 0x0080 
SCREENQUIET 0x0100 


Wird von der Intution zur Erken- 
nung des Screens verwendet (Work- 
bench- oder Custom-Screen). 
Anzeigen der Menüleiste. 


Ist gesetzt, wenn der Screen 
gerade blinkt. 

Dieses Bit ist gesetzt, wenn Sie 
eine eigene BitMap benutzen. 

Der Screen wird im Hintergrund 
geöffnet. | 

Es ist keine Menüleiste auf die- 
sem Screen vorhanden. 


*Title, *DefaultTitle: Zeiger auf den Titeltext des 
Screens und den Titeltext für Screens mit Fenstern. 


BarHeight, BarVBorder, BarHborder, MenuVBorder, Menu- 


HBorder: Die folgenden Variablen 
zu den Menüleisten und Rändern des Screens 


sind Größenangaben 
und allen 
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auf ihr erscheinenden Fenstern.Zunächst also die Höhe 
der Menüleiste dieses Screens in Pixels, sowie die 
vertikale und horizontale Breite des Menüleistenran- 
des. 


WBorTop, WBorLeft, WBorRight, WBorBottom: Die Breite 
der Fensterränder. Getrennt nach oberem, linkem, 
rechtem und unterem Rand. 


*Font: Dies ist ein Zeiger auf den Zeichensatz, der 
innerhalb dieses Screens als der aktuelle benutzt 
werden soll. 


Eine solche Datenstruktur gehört zu jedem geöffne- 
ten Fenster. Sie ist relativ umfangreich und wir ha- 
ben diese hier mehr der Vollständikeit halber aufge- 
führt. Bei der Erklärung beschränken wir uns wieder 
auf das Wesentliche. Ansonsten finden Sie die Grund- 
legenden Variablen und Flags auch in der Stuktur New- 
Window. 


struct Window 


struct Window *NextWindow; 

SHORT LeftEdge, TopEdge, Width, Height, MouseY, 
HMouseX; 

SHORT MinWidth, MinHeight, MaxWidth, MaxHeight; 

ULONG Flags; 

struct Menu *MenuStrip; 

UBYTE *Title; 

struct Requester *FirstRequest; 

struct Requester *DMRequest; 
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SHORT Reglount; 

struct Screen *WScreen; 

struct Rastport *RPort; 

BYTE BorderLeft, BorderTop, BorderRight, Border- 
Bottom; 

struct RastPort *BorderRPort; 

struct Gadget *FirstGadget; 

struct Window *Parent, *Descendant; 

USHORT *Pointer; 

BYTE PtrHeight, PtrWidth, X0ffset, YOffset; 

ULONG IDCMPFlags; 

struct MsgPort *UserPort, *WindowPort; 

struct Intuiliessage *Messagekey; 

UBYTE DetailPen, BlockPen; 

struct Image *CheckMark; 

UBYTE *ScreenTitle; 

SHORT GZZMouseX, GZZMouseY, GZZWidth, GZZHeight; 

UBYTE *ExtData; 

BYTE *UserData; 

struct Layer *WLayer; 


} 

Flags: siehe NewWindow. 

*MenuStrip: Dies ist ein Zeiger auf die Liste der Me- 
nüs. Diese werden in verketteten Menu- und Menultem- 


Datenstrukturen gespeichert. 


*Screen: Zeiger auf den Screen, zu dem dieses Fenster 
gehört. 


*Port: Dies ist ein Zeiger auf dem zu diesem Fenster 
gehörigen Rastport. 


*RPort:Dies ist ein Zeiger auf den zu diesem Fenster, 
einschließlich des Fensterrandes, gehörigen Rastport. 
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*FirstGadget: Ein Zeiger auf die Liste der zu diesem 
Fenster definierten Gadgets, aber ohne die Systemgad- 
gets der Titelleiste. Diese werden über die IDCMP- 
Flags aktiviert. 


*Pointer: Ein Zeiger auf die Grafikdaten des Mauszei 
gers dieses Fensters. Dieser ersetzt den voreinge- 
stellten, wenn das zugehörige Fenster angeklickt 
wird und bleibt nur solange bestehen, wie das Fen- 
ster aktiviert ist. 


PtrHeight, PtrHeight: Die Höhe und Breite der Grafik 
des Mauszeigers in Pixels, wobei die Breite kleiner 
oder gleich 16 sein muß. 


X0ffset ‚YOffset: Der Offset des Mauszeigers, also die 
x- und y-Koordinaten des Aktivierungspunktes der 
Mauszeigergrafik von der linken oberen Ecke aus. (Im 
allgemeinen wird es sich dabei um die Pfeilspitze o- 
der das Zentrum eines Fadenkreuzes handeln. ) 


IDCMPFlags: Im allgemeinen gilt hier: ist ein Bit ge- 
setzt, so erhalten Sie von der Intuition eine 
Message, falls der entsprechende Fall eintritt. Daher 
haben wir hier auch nicht alle Flags beschrieben. Für 
weitere Informationen vergleichen Sie dazu bitte die 
IDCMP-Flags der IntuiMessage-Struktur (weiter oben). 


SIZEVERIFY 0x00000001 


Sie bekommen eine Nachricht, wenn der Benutzer ver- 
sucht, die Größe des Fensters zu verändern. Damit die 
Größe tatsächlich verändert werden kann, müssen Sie 
die Nachricht erst mal beantworten. 
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NEWSWIZE 0x00000002 


Es wird eine IDCMP-Message gesendet, sobald sich 
die Größe des Fensters verändert. 


REFRESHWINDOW 0x00000004 

Bei SIMPLE REFRESH und SMART REFRESH Fenstern wird 
eine Message gesendet, wenn das Fenster "Refreshed" 
werden soll. 
MOUSEBUTTONS 0x00000008 

Sie werden benachrichtigt, wenn die Mausknöpfe be- 
tätigt werden. Ausnahme: die Intuition erkennt das 
anklicken von Gadgets selbstständig und meldet dies 
nicht. Das Drücken der rechten Maustaste wird nur 
dann gemeldet, wenn zusätzlich das RMBTRAP-WindowF lag 
gesetzt ist. 
MOUSEMOVE 0x00000010 

Mausbewgungen werden gemeldet, wenn auch das Flag 
REPORTMOUSE gesetzt ist. 
GADGETDOWN 0x00000020 

Es wird das Drücken der Maustaste über einem Gadget 
gemeldet. 
GADGETUP 0x00000040 

Es wird das Loslassen der Maustaste über einem Gad- 


get gemeldet. 
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REQSET 0x00000080 


Es wird Ihnen mitgeteilt, wenn in dem Fenster ein 
Requester geöffnet wird. 


REQVERIFY 0x00000800 
Im gegensatz zu REQSET werden Sie bereits vor dem 
Offnen eines Requesters informiert. 


MENUVERIFY 0x00002000 


Sie werden benachrichtigt, wenn der Benutzer ver- 
sucht ein Menü zu aktivieren. Das Menü wird erst dann 
wirklich aktiviert, wenn Sie diese Nachricht beant- 
worten. 


VANILLAKEY 0x00200000 


Das Drücken einer Taste wird gemeldet. Der Tasta- 
tur-Code wird umgewandelt in den entsprechenden 
ASCII-Code. 


INTUITICKS 0x00400000 


Ist das Fenster aktiv, so erhält Ihr Programm unge- 
fähr zehnmal pro Sekunde einen timer-event. 


*UserPort, *WindowPort: Zeiger auf zwei MsgPort-Exec- 
Strukturen, die dem Fenster zur Kommunikation mit der 
Außenwelt dienen (z.B. für die Console-Device). 


GZZMouseX, GZZMouseY: Handelt es sich bei diesem Fen- 
ster um ein GZZ-Fenster, so stehen hier die x- und y- 
Koordinaten des Mauszeigers, diesmal jedoch relativ 
zu der linken, oberen Ecke innerhalb des Fensters. 
Rahmen und Titelleiste stehen in diesem Modus ausser- 
halb des Koordinatennetzes. 
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GZZwidth, GZZHeight: Bei einem GZZ-Fenster stehen 


hier die Dimensionen des inneren Fensters, ohne Rand 
und Titelleiste. 


*ExtData, *UserData: Diesen Zeiger können Sie auf ei- 
gene Erweiterungen setzten, die bei diesem Fenster e- 
benfalls beachtet werden sollen. 
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Dieser Teil des Anhangs enthält die wichtigsten Da- 
tenstrukturen der Graphics-Library in alphabetischer 
Reihenfolge. Bei der Beschreibung der einzelnen Para- 
meter haben wir uns, gerade bei den längeren Struktu- 
ren, auf die wesentlichsten beschränkt. 


Diese Struktur wird durch InitArea angelegt und 
enthält im wesentlichen die Koordinaten der einzelnen 
Punkte, die von den Area-Befehlen betroffen werden. 


struct Arealnfo 


SHORT *VetrTbl, *VctrPtr; 
BYTE *FlagTbl *FlagPtr; 
SHORT Count, MaxCount, FirstX, FirstY; 


7 


*VstrTbl: Zeiger auf die Tabelle mit den Koordinaten- 
werten der entsprechenden Punkte. 


*/ctrptr: Zeiger auf den nächsten freien Platz in 
dieser Tabelle. 


*FlagTbl, *FlagPtr: ??? 


Count: Anzahl der Punkte, die in der Tabelle zur Zeit 
gespeichert sind. 


MaxCount: Maximale Anzahl an Punkten, die in der Ta- 
belle Platz finden können. 
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FirstX, FirstY: Startpunkt für die AreaMove-Routine. 


Diese Datenstruktur enthält die Informationen über 
die zu einem RastPort angelegte Bitmap. 
struct BitHap 
UWORD BytesPerRow, Rows; 
UBYTE Flags, Depth; 


UWORD pad; 
PLANEPTR Planes[8]; 


BytesPerRow: Breite der Bitmap in Bytes. 
Rows: Höhe der Bitmap in Punkten. 
Flags: Vom System benutzte Marke. 


Depth: Anzahl der Bitplanes, die zu dieser Bitmap 
gehören 


pad: Füllbyte 


Planes: Tabelle mit den Zeigern auf die einzelnen 
Bitplanes dieser Bitmap. 
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Die ColorMap ist die Tabelle der Farbegister. Sie 
ist einem RastPort zugeordnet und enthält für diesen 
die bis zu 32 Farbwerte. 


struct ColorMap 


{ 

UBYTE Flags, Type; 
UWORD Count; 

APTR ColorTable; 


7 


Flags: Vom System immer noch ungenutzt. 


Type: Bis jetzt ist die einzige Definition für diesen 
Wert Null. 


Count: Aktuelle Anzahl der maximal 32 Farbeinträge in 
die Farbtabelle. 


ColorTable: Zeiger auf den Beginn der Farbtabelle. 
Ein Eintrag besteht aus einem ULONG-Wert, dessen er- 
sten vier Bits den Blauanteil, die nächsten vier Bits 
den Grünanteil und die folgenden Bits den Rotanteil 
der zugewiesenen Farbe beschreiben. 
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Eine RasInfo-Struktur gehört zu jedem Rastport. Sie 
stellt die Verbindung zu dem eigentlichen Display- 
Speicherbereich her. Der Display-Speicherbereich ist 
der Bereich, der schließlich direkt auf den Bild- 
schirm gebracht wird. 


struct RasInfo 


struct RasInfo *Next; 
struct BitMap *BitHap; 
SHORT RxOffset, RyOffset; 


Fi 
*Next: Zeiger auf die nächste asInfo-Struktur, nur 
im Zusammenhang mit dem Dual-Playfield-Modus benutzt. 


*BitMap: Zeiger auf die zu diesem Viewport gehörige 
Bitmap-Struktur. 


RxOffset, RyOffset: Relative Koordinaten der Bitmap 
zum Viewport. 


Diese Datenstruktur ist wohl für die Grafikausgabe 
die wichtigste, da über diese alle Grafikbefehle aus- 
geführt werden. In der RastPort-Struktur finden wir 
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die wesentlichsten Voreinstellungen, wie z.B. Zei- 
Chenmodus und -Farben. Da dies wieder eine der länge- 
ren Datenstrukturen ist, haben wir wieder nur die we- 
sentlichen Felder beschrieben. 


struct RastPort 


struct Layer *Layer, BitMap *BitMap; 
USHORT *AreaPtrn; 

struct TmpRas *TmpRas, AreaInfo *Arealnfo, Gels- 
Info *GelsInfo; 

UBYTE Mask; 

BYTE FgPen, BgPen, A0OIPen, DrawMiode, AreaPtSz, 
linpatcent, dummy; 

USHORT Flags, LinePtrn; 

SHORT cp x, cp y; 

UBYTE minterms]8]; 

SHORT PenWidth, PenHeight; 

struct TextFont *Font; 

UBYTE AlgoStyle, TxFlags; 

UWORD TxHeight, TxWidth, TxBaseline; 
WORD TxSpacing; 

APTR *RP User; 

ULONG longreserved[2]; 

#ifndef GFX RASTPORT 1 2 

UWORD wordreserved[7]; 

UBYTE reserved[8]; 

#endif}; 


*Layer, *Bitmap: Hierbei handelt es sich wieder um 
Zeiger auf die Adressen der zu diesem Rastport ge- 
hörigen Layer- und Bitmap-Strukturen. 


*AreaPtrn: Dies ist der Zeiger auf das zu diesem 
Rastport definierte Flächenfüllmuster. 
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Mask: Dies ist eine 8-Bit Maske, deren einzelnen Bits 
festlegen, ob in den dazugehörenden Bitmapebenen mo- 
mentan geschrieben und gezeichnet werden kann. Ist 
ein Bit gesetzt, so kann die entsprechende Bitplane 
beschrieben werden, sonst nicht. 


FgPen, BgPen: In diesen Feldern stehen die Farbcodes 
für die momentan aktive Vordergrund- und Hintergrund- 
farbe. 


A0lPen: Der Farbcode für den Areafill-Outline-Pen-, 
den zweiten wichtigen Zeichenstift. 


Drawmode: Der in diesem Rastport verwendete Zeichen- 
modus. 


$00 JAM1: Einfarbiges Raster. 

$01 JAM2: Zweifarbiges Raster. 

$02 COMPLEMENT: XOR-B Verknüpfung. 

$04 INVERSVID: Inverse Darstellung (z.B. von Text). 


AreaPtSz: Enthält die Höhe des Flächenfüllmusters. 
Flags: Folgende Werte sind definiert: 

1 FRST DOT Erster Punkt einer Linie auch zeichnen. 
2 ONE DOT Linien im EinBPunktBModus zeichnen. 
4 DBUFFER Rastport ist doppelt gepuffert. 

8 AREAOUTLINE Wird verwendet beim Flächenfüllen. 
32 NOCROSSFILL Kollision beim Flächenfüllen. 


LinePtrn: Zeiger auf das zu diesem Rastport definier- 
te Linienfül muster. 


cp x, cp_y: Momentane x- und y-Koordinaten des Gra- 
fikcursors. 
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PenWidth, PenHeight: Breite und Höhe des Zeichenstif- 
tes, der von den Systemgrafikroutinen verwendet wird. 


Font: Zeiger auf den Zeichensatz, der diesem Rastport 
zugeordnet ist. 


TxHeight, TxWidth: Höhe und Durchschnittsbreite des 
aktuellen Zeichensatzes. 


TxBaseline: Relativer Abstandswert 


Enthält die Textattribute, wie z.B. die Schrift- 
art, die bei einem Font gerade gültig sind. 


struct TextA ter 


STRPTR ta Name; 
UWORD ta YSize; 
UBYTE ta_Style; 
UBYTE ta_Flags; 


Fi 
ta_Name: Name der momentan verwendeten Font. 
ta YSize: Höhe dieses Zeichensatztes in Pixel. 


ta_Style: Momentan verwendete Schriftart, abzulesen 
aus folgenden gesetzten Bits: 


0 FS NORMAL Textzeichen normal. 
1 FSB_UNDERLINED Textzeichen unterstrichen. 
2 FSB BOLD Textzeichen fett. 
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4 FSB_ITALIC Textzeichen kursiv. 
8 FSB_EXTENDED Textzeichen gedehnt. 


ta Flags: Folgende Bits sind definiert: 


1 FPB_ROMFONT Font aus ROM geladen. 

2 FPB_DISKFONT Font von Disk geladen. 

4 FPB REVPATH Von links nach rechts schreiben. 
8 FPB TALLDOT Font für HiRes-Modus. 

16 FPB WIDEDOT Font für LoRes/Interlace-Modus. 


32 FPB_PROPORTIONAL Font mit Proportionalschrift. 
64 FPB DESIGNED Fontgröße nicht alg. gültig. 
128 FPB REMOVED Font nicht aktiv. 


Eine solche Struktur gehört zu jedem Rastport und 
beinhaltet die Parameter zu dem aktuellen Font. 


struct Textfont 


struct Message tf Message; 

UWORD tf YSize; 

UBYTE tf Style, tf Flags; 

UWORD en ie, tf_BoldSmear, 

UBYTE tf LoChar, t?_Hichar;J ö 
UWORD tf Modulo; tf_AccessorS; 
APTR tf TharLoc, tf_CharSpace, tf_Charkern; 


O 
7 


u: Die Höhe der Textzeichen des Fonts in Pi- 
xeln. 
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tf_Style, tf_Flags: Haben die gleiche Belegung wie in 
der TextAttr-Struktur. 


tf XSize: Die voreingestellte Breite der Textzeichen 
des Fonts in Pixeln. 

tf Baseline: Die Unterlänge der Textzeichen in ein- 
zelnen Zeilen. 


tf_BoldSmear: Bei der Berechnung von "fetten" Zeichen 
verwendeter Schmierfaktor. 


tf Accessors: Anzahl der Routinen, Programme und 
Tasks, die auf diesen Font zugreifen. 


tf LoChar, tf HiChar: Der kleinste, bzw. größte ASCII 
Wert, für den ein Textzeichen in diesem Font vorhan- 
den ist. 


tf CharSpace: Bei Proportionalschrift ist dies ein 
Zeiger auf ein Feld von Ganzzahlen, die jeweils die 
Breite der einzelnen Textzeichen enthalten. Ist die- 
ser Wert NULL, so gilt der in tf XSize voreinge- 
stellte Wert. u 


Diese Struktur wird von den Area-Routinen ge- 
braucht. Sie muß durch InitTmpRas initialisiert und 
einem Rastport zugeordnet werden. 


struct TmpRas 


BYTE *RasPtr; 
LONG Size; 


[4 
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*RasPtr: Zeiger auf einen Pufferspeicher. 


Size: Größe des Pufferspeichers in Bytes. Sicher- 
heitshalber sollte er die Größe einer Bitplane ha- 
ben. 


Beinhaltet die für die Aufteilung des Gesamt-Dis- 
plays notwendigen Daten in die Viewports. 


struct View 


{ 

struct ViewPort *ViewPort, cprlist *LOFCprList, 
cprlist *SHFCprList; 

short DyOffset,DxOffset; 

UWORD Modes; 


}i 


*ViewPort: Zeiger auf die zu dieser Struktur gehören- 
den ViewPort-Struktur. 


*LOFCprList: Zeiger auf die "Long-Frame-Copper-List". 
*SHFCprList:Zeiger auf die "Short-Frame-Copper-List". 
DyOffset, DxOffset: x- und y- Koordinaten der Positi- 
on der linken oberen Ecke dieses ViewPorts auf dem 


Monitor. 


Modes: Folgende Werte sind definiert: 


4 LACE Inter lace-Modus 
64 PFBA Erstes Playfield im Vorder- 
grund 
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128 EXTRA HALFBRITE Extra-Halfbright-Modus 


1024 DUALPF Dual-Playfields-Modus 

2048 HAM Ho ld-And-Modify-Modus 

8192 VP HIDE Ist Viewport im Hintergrund ? 
32768 HIRES High-Reso lution-Modus 


EEE 7 BERERee RER 


:W I@WPORE:::::; 


Diese Struktur enthält die Informationen der View- 
ports, über die der wesentliche Teil der Bildschirm- 
Ausgabe abläuft. 


struct ViewPort 


struct ViewPort *Next, ColorMap *ColorMap, CopList* 
DspIns, CopList *SprIns, CopList *CIrIns, UCopList* 
UCopIns; 

SHORT DWidth,DHeight, Dx0Offset,DyOffset; 

UWORD Modes; 

UBYTE SpritePriorities, reserved; 

struct RasInfo *RasInfo; 


. 
7 


*Next: Adreßzeiger auf den nächsten Viewport, falls 
noch einer vorhanden ist. 


*ColorMap: Zeiger auf die zu diesem Viewport gehö- 
rende ColorMap-Struktur. 


Dwidth, DHeight: Breite und Höhe dieses Viewports in 
Pixel. 


DxOffset, DyOffset: Koordinatenpaar das die Position 


der linken oberen Ecke dieses Viewports auf dem Ge- 
samtdisplay angibt. 
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Modes: Folgende Werte sind möglich: 


4 LACE Inter lace-Modus 
64 PFBA Erstes Playfield vorn 
128 EXTRA HALFBRITE Extra-Halfbright-Modus 
1024 DUALPF Dual-Playfields-Modus 
2048 HAM Ho Id-And-Modify-Modus 
8192 VP HIDE Ist Viewport im Hintergrund ? 
32768 HIRES High-Resolution-Modus 


*RasInfo: Zeiger auf die zu diesem Viewport gehö- 
rende RasInfo-Struktur. 
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Dieser Teil des Anhangs enthält die für die Grafik- 
programmierung wichtigsten Systemfunktionen der Intu- 
ition-Library in alphabetischer Reihenfolge. 


Haben Sie sich zu einem Fenster einen eigenen Maus- 
zeiger erstellt und diesen aktiviert, so können Sie 
ihn mit dieser Routine wieder desaktivieren. Es er- 
scheint dann wieder der in den Preferences voreinge- 
stellte Mauszeiger. 


ClearPointer(Window) 
AO 


Window: Zeiger auf das Fenster, auf das sich diese 
Routine bezieht. 


Haben Sie einen eigenen Screen geöffnet, können Sie 
ihn mit dieser Routine wieder schließen, der entspre- 
chende Speicherplatz wird wieder freigegeben. Zuvor 
alle Fenster durch CloseWindow schließen ! 


CloseScreen(Screen) 
AO 
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Screen: Adresse des Screens, der geschlossen werden 
kann. 


Mit dieser Routine können Sie ein Fenster schließen, 
der belegte Speicherplatz wird wieder freigegeben. 
Haben Sie einen IDCMP-Port geöffnet, so müssen Sie 
vorher sicherstellen, daß keine Nachricht mehr auf 
Antwort wartet. 


CloseWindow(Window) 
AO 


Window: Zeiger auf das zu schließende Fenster. 


Zeichnet die einer Border-Struktur entsprechenden 
Linien in dem angegebenen Rastport. 


DrawBorder (RastPort, Border, LeftOffset, TopOffset) 
AO Al DO D1 


RastPort: Zeiger auf die Rastport-Struktur in der die 
Linien gezeichnet werden sollen. 
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Border: Zeiger auf die Border-Struktur in der die In- 
formationen über die zu zeichnenden Linien stehen. 


LeftOffset, TopOffset: Relative x- und y-Koordinaten, 
die zu jedem der Werte aus der Border-Struktur ad- 
diert werden. 


Zeichnet ein Image an eine beliebige Stelle in ei- 
nen Rastport. 


DrawImage(RastPort, Image, LeftOffset, TopOffset) 
AO Al DO D1 
RastPort: Zeiger auf die Rastport-Struktur in der das 


Image gezeichnet werden soll. 


Image: Zeiger auf die Image-Struktur in der die In- 
formationen über das zu zeichnende Image stehen. 


LeftOffset, TopOffset: Relative x- und y-Koordinaten, 
die zu dem Image addiert werden. 


Bewegt einen Screen relativ zu seiner jetzigen Po- 
sition nach unten oder nach oben. 
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MoveScreen(Screen, DeltaX, DeltaY) 
AO DO D1 


Screen: Zeiger auf die Screen-Struktur von dem 
Screen, den Sie verschieben wollen. 


DeltaX, DeltaY: Setzen Sie deltax auf Null, da eine 
Verschiebung in der x-Achsen-Richtung noch nicht im- 
plementiert ist. Der Wert deltay bestimmt die Anzahl 
der Pixel, um die der Screen in vertikaler Richtung 
verschoben werden soll. Dabei bewirken negative Werte 
eine Verschiebung nach oben, positive nach unten. 


Diese Routine bewirkt durch die Intuition eine Ver- 
schiebung eines Fensters um angegebene Delta-Werte. 


MoveWindow(Window, DeltaX, DeltaY) 
AO 


Window: Adresse der Window-Struktur des Fensters, das 
verschoben werden soll. 


DeltaX, DeltaY: Anzahl der Pixel, um die das Fenster 
verschoben werden soll. Positive Werte bewirken eine 
Verschiebung nach unten (bzw. nach rechts), negative 
Werte in die entgegengesetzte Richtung. 


Wichtig(!): Bevor Sie diese Routine aufrufen, prüfen 
Sie unbedingt, ob das Fenster nach dem Verschieben 
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noch komplett im Gültigkeitsbereich (innerhalb des 
Screens) liegt, da Ihnen sonst ein unvermeidlicher 
Absturz bevorsteht. 


Öffnet einen neuen Screen mit den in einer New- 
Screen-Struktur (siehe Anhang A) angegebenen Parame- 
tern und legt eine Screen-Struktur an. Die NewScreen- 
Struktur wird anschließend nicht mehr benötigt und 
kann aus dem Speicher gelöscht werden. 


ScreenPointer = OpenScreen(NewScreen); 
AO 


NewScreen:_Zeiger auf eine NewScreen-Struktur, die 
die für diesen Screen geltenden Parameter enthält. 


Rückgabe: ScreenPointer wird NULL, wenn der Screen 
nicht geöffnet werden konnte, ansonsten enthält er 
die Adresse der Screen-Datenstruktur des geöffneten 
Screens. 


Öffnet ein Fenster mit den in einer NewWindow- 
Struktur (siehe Anhang A) angegebenen Parametern und 
legt eine Window-Struktur an. Die NewWindow-Struktur 
wird anschließend nicht mehr benötigt und kann aus 
dem Speicher gelöscht werden. 
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WindowPointer = OpenWindow(NewWindow) ; 
AO 


NewWindow:Zeiger auf eine NewWindow-Struktur, die die 
für dieses Fenster. geltenden Parameter enthält. 


Rückgabe: WindowPointer wird NULL, wenn das Fenster 
nicht geöffnet werden konnte, ansonsten enthält er 
die Adresse des geöffneten Fensters. 


Ein durch die IntuiText-Struktur vorgegebener Text 
wird in dem angegebenen R astport aneiner durch 
die x-und y-Koordinaten bestimmte Stelle ausgegeben. 


PrintlIText(RastPort, IText, LeftEdge, TopEdge) 
AO Al DO D1 


RastPort: Zeiger auf den Rastport in dem der Text 
ausgegeben werden soll. 


IText: Zeiger auf die IntuiText-Struktur mit dem aus- 
zugebenden Text und den dazugehörigen Parametern über 
die Schriftart. 


LeftEdge, TopEdge: Position des Textes innerhalb des 
Rastports, relativ zur linken, oberen Ecke. 
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Setzt einen beliebigen Screen in den Hintergrund. 


ScreenToBack (Screen) 


Screen: Zeiger auf den in den Hintergrund zu setzen- 
den Screen. 


Setzt einen heliebigen Screen in den Vordergrund. 


ScreenToFfront(Screen) 
AO 


Screen: Zeiger auf den in den Vordergrund zu setzen- 
den Screen. 


Ordnet einem Fenster einen eigenen Mauszeiger zu, 
der immer dann erscheint, wenn das Fenster aktiv ist. 


SetPointer(Window,Pointer ‚Height ‚Width,X0ff ‚YOff); 
AO Al DO D1 D2 D3 
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Window: Zeiger auf das Fenster für das ein eigener 
Zeiger definiert werden soll. 


Pointer: Zeiger auf die Grafik-Daten des Mauszeigers. 


Height, Width: Höhe und Breite des Zeigers, wobei die 
Breite kleiner oder gleich 16 sein muß. 


X0ff, Yoff: Offset-Werte für den "Hot-Spot" relativ 
zur linken oberen Ecke. Handelt es sich bei dem Zei- 
ger um einen Pfeil, der seine Spitze in der linken 
oberen Ecke hat, dann setzen Sie diese Werte auf 
Null. Ist dagegen die Pfeilspitze oben rechts, so se- 
tzen Sie XOff auf 15 (vorausgesetzt der Zeiger ist 16 
Punkte breit). 


Mit Hilfe dieser Routine können Sie die Screen-Ti- 
telleiste bei Überlagerung mit einem BackDrop-Fenster 
in den Vorder- oder Hintergrund bringen. 


Showitle(Screen, ShowlIt); 
AO DO 


Screen: Zeiger auf den Screen mit der zu beeinflus- 
senden Screen-Titelleiste. 


ShowIt: Setzen Sie diesen Wert auf TRUE um die Titel- 


leiste in den Vordergrund und auf FALSE um sie in den 
Hintergrund zu bringen. 
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Diese Routine fordert Intuition auf, ein Fenster 
um die angegebenen Delta-Werte zu vergrößern, bzw. 
zu verkleinern. Intuition führt dann diese Ver- 
änderung ohne vorherige Kontrolle der übergebenen 
Werte durch. 


SizwwWwindow(Window, DeltaX, DeltaY); 
AO DO D1 


Window: Zeiger auf das Fenster, dessen Größe verän- 
dert werden soll. 


DeltaX, DeltaY: Anzahl an Punkten, um die die Größe 
des Fensters in x- und y-Richtung verändert werden 
soll. Dabei bedeutet ein negatives Vorzeichen ver- 
kleinern, positives vergrößern. 


Bemerkung: Um einen Systemabsturz mit den Worten der 
Orginal-Beschreibung (siehe Literaturverzeichnis) zu 
umschreiben: "Diese Routine macht keine Fehlerkon- 
trolle! Beschreiben Ihre Delta-Werte irgendeine ent- 
fernte Ecke des Universums, so wird Intuition versu- 
chen, das Fenster bis dorthin zu vergrößern. Aufgrund 
der Dehnungen die im Raum-Zeit Kontinuum, vorhergesagt 
durch die Spezielle Relativität, entstehen können, 
ist das Ergebnis dieses Versuches im allgemeinen 
nicht wünschenswert." 
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Bestimmt zu einem beliebigen Fenster die Adresse 
des zugehörigen Viewports. Diese Adresse brauchen Sie 
für die meisten Grafik- und Text-Routinen. 


ViewPort = ViewPortAddress (Window): 
AO 


Window: Zeiger auf das Fenster, von dem Sie die Adre- 
sse des Viewports haben wollen. 


Mit dieser Routine können Sie zu einem Fenster neue 
Maximum- und Minimum-Dimensionen setzen. Mit dem Si- 
zing-Gadget kann dann dieses Fenster nur innerhalb 
dieser Werte vergrößert oder verkleinert werden. 


boole = WindowL imits (Window ‚MinX ‚MinY ‚MaxX ‚MaxY); 
AO DO DI D2 D3 
Window: Zeiger auf das Fenster, dessen maximale und 
minimale Dimension Sie festlegen wollen. 
MinX, MinY: Minimale x- und y- Werte, die beim Ver- 


kleinern des Fensters nicht mehr über- bzw. unter- 
schritten werden können. 
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MaxX, MaxY: Maximale x- und y- Werte, die beim Ver- 
größern des Fensters nicht mehr über- bzw. unter- 
schritten werden können. 


Veranlaßt Intuition ein ausgewähltes Fenster in den 
Hintergrund zu setzen. 


WindowToBack (Window) 
AO 


Window: Zeiger auf das in den Hintergrund zu setzende 
Fenster. 


Veranlaßt Intuition ein ausgewähltes Fenster in den 
Vordergrund zu setzen. 


WindowToFront (Window) 
AO 


Window: Zeiger auf das in den Vordergrund zu setzen- 
de Fenster. 
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Dieser Teil des Anhangs enthält die für die Grafik- 
programmierung wichtigsten Systemfunktionen der Gra- 
phics-Library in alphabetischer Reihenfolge. 


Fügt einen Font in die System-Font-Liste ein, damit 
er im Speicher zur schnelleren Verfügung steht. 


AddFont(TextFont), GraphicsLib 
Al A6 


TextFont: Ein Zeiger auf eine TextFont-Struktur des 
einzufügenden Fonts. 


Ruft die notwendigen Allocate-Routinen auf, um den 
Speicherplatz für eine Bitplane zu belegen. 


AllocRaster( width, height) 

DO D1 
width, height: Breite und Höhe der Bitplane, für die 
dieser Speicherplatz reserviert werden soll. 
Rückgabe: Ein Zeiger auf den Anfang des reservierten 


Speicherplatzes oder 0 falls die Belegung nicht er- 
folgreich war. 
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Ein weitere Punkt des auszufüllenden Polygons wird 
in die Liste der Polygon-Eckpunkte eingefügt. 


error = (int) AreaDraw( RastPort, x, y) 
Al DO DI 


RastPort: Zeiger auf die RastPort-Struktur, in der 
das Polygon gezeichnet werden soll. 


X, Y: Koordinaten des Polygon-Eckpunktes. 


Rückgabe: Bei erfolgreicher Durchführung 0 sonst -1. 


Zeichnet ein ausgefülltes Polygon, dessen Eckpunkte 
durch AreaDraw eingegeben wurden. 


error = AreaEnd(RastPort) 

Al 
RastPort: Zeiger auf die RastPort-Struktur, in der 
das Polygon gezeichnet werden soll. 


Rückgabe: Bei erfolgreicher Durchführung 0 sonst -1. 
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Setzt den Startpunkt eines zu füllenden Polygons. 
Sollte das letzte Polygon noch nicht abgeschlossen 
worden sein, So wird dies von dieser Routine automa- 
tisch erledigt. 


error = AreaMove( RastPort, x, y) 
Al DO DI 
RastPort: Zeiger auf die RastPort-Struktur, in der 
das Polygon gezeichnet werden soll. 


X, Y: Koordinaten des Polygon-Startpunktes. 


Rückgabe: Bei erfolgreicher Durchführung O sonst -1. 


Erzeugt eine TextAttr-Struktur, die die Parameter 
des aktuellen Zeichensatzes enthalten. 


Askfont(RastPort, TextAttr) 

AO 
RastPort: Zeiger auf den RastPort, dessen Font-Attri- 
bute in der TextAttr-Struktur abgelegt werden sollen. 
TextAttr: Zeiger auf die TextAttr-Struktur, in der 


die Informationen abgelegt werden. 
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Mit Hilfe dieser Routine können Sie erfahren, 
welche Schriftarten des aktuellen Fonts eines 
Rastports Ihnen noch zur Verfügung stehen. 


bits = AskSoftStyle(RastPort) 
Al 


RastPort: Zeiger auf den Rastport, von dessen Font 
Sie wissen wollen, welche Schriftarten Ihnen zur Ver- 
fügung stehen. 


Rückgabe: Liefert die Font-Style-Flags zurück, die 
noch durch SetSoftStyle gesetzt werden können. 


Mit dieser Routine können Sie den Blitter veranlas- 
sen, ein Rechteck aus einer Bitmap in eine andere zu 
kopieren, innerhalb einer Bitmap zu verschieben oder 
mit einem anderen Rechteck zu verknüpfen. 


planes = BltBitMap(Srcx, Srcy,Destx,Desty,width, 
DO DO Dl D2 D3 D4 


height, Minterm, Mask, ScrBitMap, DestBitMap,Tempa) 
D5 D6 D7 AO Al A2 
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ScrBitMap: Zeiger auf die Source-Bitmap (Quell-Bit- 
map), also diejenige von der Sie ein Rechteck kopie- 
ren wollen. 


Srcx, Srcy: Koordinaten der linken oberen Ecke des zu 
kopierenden Rechtecks innerhalb der Quell-Bitmap. 


DestBitMap: Zeiger auf die Destination-Bitmap (Ziel- 
Bitmap),also diejenige in die Sie ein Rechteck hinein 
kopieren wollen. Diese kann mit der Source-Bitmap 
identisch sein. 


Destx, Desty: Koordinaten innerhalb der Ziel-Bitmap, 
an der dann die linke obere Ecke des kopierten Recht- 
eckes liegt. 


width, heigth: Breite und Höhe des kopierten Recht- 
ecks in Pixel. 


Minterm: Die logische Verknüpfung, die beim Kopieren 
des Rechteckes in das Zielrechteck vorgenommen wird. 
Bezeichnen wir das Quellrechteck mit Q und das Ziel- 
rechteck mit Z, so bewirken die einzelnen Bits fol- 
gende Verknüpfungen: 


0x10 Q AND Z 

0x20 Q AND NOT(Z) 

0x40 NOT(Q) AND Z 

0x80 NOT(Q) AND NOT(Z) 


So bewirkt das Setzen von mehreren dieser Bits zum 
Beispiel: 


0x30 Invertieren von Q. 


0x50 Invertieren von Z. 
0xC0O Kopieren ohne Werte zu verändern. 
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Mask: Hier können Sie durch Setzen der einzelnen Bits 
festlegen, welche einzelnen Bitplanes einer Bitmap 
kopiert werden sollen. Setzen sie zum Beispiel Bit 0 
auf 1, so wird die Bitplane 1 kopiert. 


TempA: Zeiger auf einen Zwischenspeicher, der nur be- 
nutzt wird, wenn sich das Quellrechteck mit dem Ziel- 
rechteck überschneidet. 


Mit dieser Routine können Sie den Blitter veranlas- 
sen ein Rechteck aus einer Bitmap in einen RastPort 
zu kopieren. Die Parameter sind im wesentlichen die 
gleichen wie bei BltBitMap. Daher haben wir hier auch 
nur den von BltBitMap verschiedenen Parameter angege- 
ben. 


boole= BltBitMapRastPort(Srcx,Srcy,Destx,Desty width, 
DO DI D2 D3 D4 
height ‚Minterm,ScrBitMap ‚DestRast) 
D5 D6 AO Al 


DestRast: Zeiger auf den Destination-RastPort (Ziel- 
RastPort). 


Destx, Desty: Relative Koordinaten innerhalb des 


Ziel-RastPortes, an der dann die linke obere Ecke des 
kopierten Rechteckes liegt. 


385 


Anhang D 


Löscht einen angegebenen Speicherbereich (= belegen 
mit 0) im Chip-RAM. 


BltClear(memblock, bytecount, flags) 
Al DO D1 


bytecount: Anzahl der zu löschenden Bytes in Abhän- 
gigkeit von flags. 


flags: Ist Bit 0 gesetzt, so wartet das Programm, bis 
der Blitter den Löschvorgang beendet hat, ansonsten 
läuft es während des Löschens weiter. Ist Bit 1 ge- 
löscht, so werden soviel Bytes gelöscht wie in byte- 
count angegeben, ist es gesetzt, so wird ein Rechteck 
gelöscht, das durch die oberen und unteren 16 Bits 
von bytecount gegeben ist. Dabei entsprechen die un- 
teren 16 Bit der Anzahl der zu löschenden Bytes per 
Zeile und die oberen 16 Bit der Anzahl der zu 1ö- 
schenden Zeilen. 


Diese Funktion bewirkt im Wesentlichen das gleiche 
wie BltBitMap. Sie haben jedoch zusätzlich die Mög- 
lichkeit beim kopieren eine Bitmap als "Maske" zu be- 
nutzen, die wie eine Schablone wirkt und nur da 
durchlässig ist, wo die Bits gesetzt sind. Da auch 
hier die Parameter größtenteils mit denen von BltBit- 
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Map und BiltBitMapRastPort übereinstimmen, haben wir 


hier nur den hinzugekommenen dokumentiert. 


boole = BltMaskBitMapRastPort 
(ScrBitMap, Srcx, Srcy, DestRast 


AO DO DI Al 
Destx, Desty, width, height, Minterm, B1tMask) 
D2 D3 D4 D5 D6 


BltMask: Zeiger auf die Bitplane, die als Maske 
dient. 


::BfPattern 


Füllt ein Rechteck, in Abhängigkeit von einer Maske 
(wie bei B1tMaskBitMapRastPort), in einen Rastport 
mit den aktuellen Parametern (Farbe, Füllmuster etc.) 


BltPattern( RastPort, Mask, xl, yl, x2, y2, Bytes ) 
Al AO DO DI D2 D3 D4 


RastPort: Zeiger auf den Rastport, in dem ein Recht- 
eck gezeichnet werden soll. 


Mask: Zeiger auf eine BitPlane, die mindestens so 
groß sein muß wie Bytes und die beim Füllen als Scha- 
blone dient. 


xl, yl, x2, y2: Koordinaten der linken oberen und der 
unteren rechten Ecke des Rechtecks. 


Bytes: Breite des Rechtecks in Bytes. Also in 8er 
Schritten aufgerundet, da 1 Byte = 8 Bit. 
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Löscht eine Zeile ab der aktuellen Cursor-Position 
bis zum Ende der Zeile (End Of Line). Die Breite der 
gelöschten Zeile hängt von der aktuellen Text-Höhe 
ab. 


ClearEOL(RastPort), GraphicsLib 
Al A6 


RastPort: Zeiger auf den RastPort, in dem die Zeile 
gelöscht werden soll. 


Freigeben des Blitters für andere Tasks, nachdem er 
durch OwnBlitter für einen Task reserviert wurde. 


DisownBlitter() 


Zeichnet eine Linie zwischen der aktuellen Cursor- 
Position und den angegebenen Koordinaten. 


Draw( RastPort, x, y) 
Al DO DI 
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RastPort: Zeiger auf den RastPort, in der die Linie 
gezeichnet werden soll. 


X, Y: Koordinaten der neuen aktuellen Cusor-Position, 
die mit der alten durch eine Linie verbunden wird. 


Zeichnet im angegebenen RastPort eine Ellipse. 


DrawEllipse( RastPort, xm, ym, xr, yr) 
Al DO DI D2 D3 


RastPort: Zeiger auf den RastPort, in der die Ellipse 
gezeichnet werden soll. 


xm, ym: Koordinaten des Mittelpunktes der Ellipse. 
xr, yr: x- und y-Radius der Ellipse. 


Füllen einer zusammenhängenden Fläche. 


Flood( RastPort, mode, X, y) 
Al D2 DO DI 


RastPort: Zeiger auf den RastPort, in der sich die zu 
füllende Fläche befindet. 


mode: Füllimodus 


X, y: x- und y-Koordinate des Punktes, ab dem mit dem 
Füllen begonnen wird. 
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Löschen der ColorMap-Struktur durch Freigegeben des 
von ihr belegten Speichers. 


FreeColorMap( colormap ) 
AO 


colormap: Zeiger auf die ColorMap-Struktur, die frei- 
gegeben werden kann. 


Freigeben eines Speicherbereiches, der von einer 
Bitmap durch die AllocRaster-Routine belegt wird. 


FreeRaster( p, width, height) 
AD DO D1 


p: Zeiger auf den Speicherbereich, der durch die Bit- 
plane belegt wird. 


width, height: Breite und Höhe der Bitplane, deren 
Speicherplatz wieder freigegeben werden kann. 


Wichtig(!): Benutzen Sie für width und height die 
gleichen Werte die Sie auch bei AllocRaster verwendet 
haben! Sie laufen sonst Gefahr eine "Guru Meditation" 
zu erhalten. 
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Diese Routine legt eine ColorMap-Struktur an. 
cm = GetColorMap( entries ) 
DO DO 


entries: Anzahl der Farben, die in die Liste einge- 
tragen werden sollen. 


Rückgabe: Zeiger auf die initialisierte ColorMap- 
Struktur. 


Routine zum Auslesen der einzelnen Farbwerte aus 
den Farbregistern. 


value = GetRGBA4( colormap, entry ) 
DO AO DO 


colormap: Zeiger auf die ColorMap-Struktur, aus der 
Sie die Farbwerte lesen wollen. 


entry: Nummer des Farbregisters, von dem Sie die 
Farbwerte wissen wollen. 


Rückgabe: Sie erhalten -l1, wenn das Farbregister mit 
keiner gültigen Farbe belegt ist. Ansonsten ist value 
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ein Wort dessen ersten vier Bits (0-3) den Blauanteil 
die nächsten vier Bits (4-7), den Grünanteil und die 
folgenden vier Bits (8-11), den Rotanteil der Farbe 
beinhalten. 


Bevor Sie die Area-Befehle benutzen können, müssen 
Sie durch diese Routine eine Arealnfo-Struktur initi- 
alisieren. 


InitArea(Arealnfo, Buffer, Count) 
AO Al DO 


Arealnfo: Zeiger auf die zu initialisierende Area- 
Info-Struktur. 


Buffer: Zeiger auf einen freien Speicherbereich, der 
den Area-Befehlen als Zwischenspeicher dient. 


Count: Maximale Anzahl der Punkte die im Zwischen- 
speicher platz finden können. Für jeden Punkt werden 
dann 5 Bytes Speicher reserviert. 


Diese Routine dient dazu, eine BitMap-Struktur zu 
initialisieren. 


InitBitMap( BitMap, depth, width, height) 
AO D1 D2 D3 
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BitMap: Zeiger auf die zu initialisierende BitMap. 
depth: Anzahl der Bitplanes, die diese Bitmap hat. 
width, height: Breite und Höhe der Bitmap in Pixel. 


Initialisieren einer RastPort-Struktur mit den 
Standardwerten (Modus = JAM2; Mask, FgPen, AOLPen und 
LinePtrn = -1; restliche Werte = 0) 


InitRastPort(RastPort) 
Al 


RastPort: Zeiger auf den zu initialsierenden Rast- 
Port. 


Initialisieren einer TmpRas-Struktur, die einem Rast 
Port als Zwischenspeicher dient. 


InitTmpRas(tmpras, buffer, size) 
AO Al DO 
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tmpras: Zeiger auf die zu initialisierende TnpRas- 
Struktur. 


buffer: Zeiger auf einen freien Speicherbereich. 
size: Größe von buffer in Bytes. Im allgemeinen soll- 


ten Sie den Zwischenspeicher so groß wie eine Bit- 
plane dieses RastPorts wählen. 


Diese Routine initialisiert die angegebene ViewPort 
Struktur durch Setzten der wichtigsten Werte. 


InitView( view ) 
Al 


view: Zeiger auf die zu initialisierende ViewPort- 
Struktur. 


Initialisiert eine ViewPort-Struktur mit den Stan- 
dard Werten. 


InitVPort(ViewPort) 
AO 


ViewPort: Zeiger auf die zu initialisierende View- 
Port-Struktur. 


394 


Anhang D 


Kopiert eine Farbpalette mit den entsprechenden 
Einträgen in einen Viewport. 


LoadRGB4(ViewPort, ColorMap, Count) 
AO Al DO 
ViewPort: Zeiger auf den ViewPort, dessen Farbeinträ- 


ge Sie ändern möchten. 


ColorMap: Zeiger auf einen Array von UWORD-Variablen, 
die die Farbwerte der Farbregister enthalten. 


Count: Anzahl der Farbregister die in dem Array Color 
Map gespeichert sind. 


Durch diese Routine werden die Copperlisten, die 
Sie durch MakeVPort berechnet haben, ausgeführt. 


LoadView (View); 
Al 


View: Adresse der View-Struktur, die die bereits be- 
rechneten Copperlisten enthält. 
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Bereitet einen Viewport auf, indem seine Zwischen- 
Copperlisten berechnet werden. 


MakeVPort( View, ViewPort); 
AO Al 


View: Zeiger auf die View-Struktur, dem dieser View- 
port zugeordnet ist. 


ViewPort: Zeiger auf die ViewPort-Struktur, deren 
Zwischen-Copperlisten berechnet werden sollen. 


Bewegt den grafischen Zeichenstift zu einer (x,y)- 
Position, (relativ zur linken oberen Ecke des Rast- 
ports) ohne dabei irgend etwas zu zeichnen. 


Move( RastPort, x, y); 
Al DO DI 
RastPort: Adresse der RastPort-Struktur, in der die 


Position des Zeichenstiftes neu gesetzt wird. 


X, Y: Koordinaten des Punktes, auf den der Zeichen- 
stift gesetzt werden soll. 
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Öffnen des Fonts der System-Font-Liste, der am ehe- 
sten einer vorgegebenen TextAttr-Struktur entspricht. 


font = OpenFont(TextAttr), GraphicsLib 
DO AO Ab 


TextAttr: Zeiger auf die TextAttr-Struktur, zu der 
ein Font geladen werden soll. 


Rückgabe: font ist 0, falls kein passender Font ge- 
funden wurde, sonst enthält font den Zeiger auf die 
initialisierte TextFont-Struktur. 


Reserviert den Blitter für Ihre eigenen Zwecke. 
Stellen Sie jedoch vorher durch WaitBlit sicher, daß 
der Blitter gerade nicht arbeitet. 


OwnBlitter(); 


Zeichnet einen vorher definierten Linienzug (bzw. 
ein Polygon, falls der Startpunkt gleich dem EndPunkt 
ist) in den angegebenen RastPort. 
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PolyDraw( RastPort, count, array ) 
DO AO 


RastPort: Zeiger auf den RastPort, in dem der Linien- 
zug gezeichnet werden soll. 
count: Anzahl der vorher definierten Eckpunkte. 


array: Zeiger auf den Speicherbereich, wo die Koordi- 
naten der Eckpunkte stehen. 


Liest die Farbe eines Punktes eines Rastports. 


pen = (int}ReadPixel( RastPort, x, y) 
DO Al DO Di 


RastPort: Zeiger auf den RastPort, aus dem ein Punkt 
"gelesen" werden soll. 


x, y: Relative (zur linken oberen Ecke des RastPorts) 
Koordinaten des Punktes, von dem Sie wissen wollen, 
mit welcher Farbe er gesetzt wurde. 


Rückgabe: Liefert -1 falls der Punkt nicht gelesen 


werden kann, ansonsten die Nummer des entsprechenden 
Farbregisters. 
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Diese Routine zeichnet ein ausgefülltes Rechteck 
mit den aktuellen Werten ( z.B.: ZeichenModus, Farbe, 
Füllmuster, etc.). 


RectFill( RastPort, xmin, ymin, xmax, ymax) 
Al DO D1 D2 D3 
RastPort: Zeiger auf den RastPort, in dem das Recht- 


eck gezeichnet werden soll. 


xmin, ymin: Koordinaten der linken oberen Ecke des zu 
zeichnenden Rechtecks. 


xmax, ymax: Koordinaten der rechten unteren Ecke des 
zu zeichnenden Rechtecks. 


Entfernt einen Font aus der System-Font-Liste. 


error = RemFont(TextFont) ,GraphicsLib 
DO Al Ab 


TextFont: Adresse der TextFont-Struktur, die wieder 
freigegeben werden kann. 


Rückgabe: Ist error = 0, so konnte der Font nicht 
entfernt werden. 
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Mit dieser Routine können Sie ein Rechteck in einem 
Rastport scrollen, also seinen Inhalt verschieben. 


ScrollRaster(RastPort, dx, dy,Xmin,Ymin,Xmax ,Ymax); 
AO DO DI D DI D4 _ D5 

RastPort: Zeiger auf den Rastport, in dem Sie ein 

Rechteck scrollen wollen. 

dx, dy: Anzahl der Punkte, um die der Inhalt des 

Rechtecks verschoben wird. Positive Werte bewirken 


eine Verschiebung nach links, negative nach rechts. 


Xmin, Ymin: Koordinaten der linken oberen Ecke des 
Rechtecks. 


Xmax, Ymax: Koordinaten der linken oberen Ecke des 
Rechtecks. 
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Setzen der neuen Vordergrundfarbe (Primary pen). 


SetAPen( RastPort, pen) 
Al DO 


RastPort: Zeiger auf den RastPort, für den dieser 
Farbstift neu gesetzt werden soll. 


pen: Nummer des Farbregisters, mit dessen Farbe die- 
ser Farbstift belegt wird. 


Setzen der neuen Hintergrundfarbe (Secondary pen). 


SetBPen( RastPort, pen) 
Al DO 


RastPort: Zeiger auf den RastPort, für den dieser 
Farbstift neu gesetzt werden soll. 


pen: Nummer des Farbregisters, mit dessen Farbe die- 
ser Farbstift belegt wird. 
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Setzt einen neuen Zeichenmodus. 


SetDrMd( RastPort, Mode); 
Al DO 


RastPort: Addresse der RastPort-Struktur, deren Zei- 
chenmodus Sie neu festlegen möchten. 


Mode: Die folgenden vier Modi. können auch beliebig 
miteinander verknüpft werden, wenn dies auch nicht 
immer sinnvoll ist. 


JAM1 0 Gesetzte Bits mit APen zeichnen. 

JAM2 1 Wie JAMl, aber gelöschte Bits mit 
BPen zeichnen. 

COMPLEMENT 2 Punkte vorm zeichnen "XOR"en. 

INVERSVID 4 Invertieren (z.B von Textzeichen) 


Ordnet dem angegebenen RastPort einen neuen Zei- 
chensatz zu. 


error = SetFont( RastPort, Font) ‚GraphicsLib 

DO AO A6 

RastPort: Zeiger auf den RastPort, für den der Font 
neu gesetzt werden soll. 

Font: Zeiger auf die bereits durch OpenFont vorberei- 


tete TextFont-Struktur. 
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Setzen der neuen Umrandungsfarbe (Outline pen). 


SetOPen( RastPort, pen) 
Al DO 


RastPort: Zeiger auf den RastPort, für den dieser 
Farbstift neu gesetzt werden soll. 


pen: Nummer des Farbregisters, mit dessen Farbe die- 
ser Farbstift belegt wird. 


Mit dieser Routine können Sie die Farbregister ei- 
nes Viewports mit neuen Farben belegen. 


SetRGB4( ViewPort, Number, Red, Green, Blue); 
AU DO Dl D2 D3 

ViewPort: Zeiger auf die ViewPort-Struktur. 

Number: Nummer des Farbregisters (0-31). 


Red, Green, Blue: Die neuen Farbanteile (0-15). 
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Gibt an der aktuellen Position des Zeichenstiftes 
einen beliebigen Text aus. 


error = Text(RastPort, String, Count) 
DO Al DO 
RastPort: Zeiger auf den RastPort, in dem der Text 


ausgegeben wird. 


String: Adresse der Zeichenkette, die Sie ausgegeben 
möchten. 


Count: Anzahl der einzelnen Zeichen, die die Zeichen- 
kette enthält. 


Rückgabe: Bei erfolgreicher Durchführung O sonst -1. 


Mit dieser Routine können Sie die eigentliche Länge 
(in Punkten) eines Textes, unter Berücksichtigung des 
aktuellen Fonts, ermitteln. 


length = TextLength(RastPort, String, Count); 
DO Al AO DO-0:16 
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RastPort: Zeiger auf den RastPort, in dem der Text 
erscheinen soll. 


String: Adresse der Zeichenkette, die Sie ausgegeben 
möchten. 


Count: Anzahl der einzelnen Zeichen, die die Zeichen- 
kette enthält. 


Gibt Ihnen die Zeilennummer an, in der sich der E- 
lektronenstrahl, der das aktuelle Bild wiedergibt, 
befindet. Der Wert ist im allgemeinen recht ungenau, 
wir verwenden ihn lediglich, um eine Zufallszahl zu 
erhalten. 


position = VBeamPos(); 


Rückgabe: Ein Wert zwischen 0 und 255. 


Wartet bis der Blitter seine augenblickliche Ko- 
pierarbeit beendet hat, damit Sie die Routine Own- 
Blitter benutzen können. 


WaitBlit(); 


Bemerkung: Diese Routine arbeitet leider nicht immer 
fehlerfrei, sondern verzichtet manchmal auf weiteres 
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Warten, obwohl der Blitter noch einen Kopiervorgang 
zu erledigen hat. 


Wartet bis der Elektronenstrahl, der das Bild eines 
Viewports zeichnet, an seinem unteren Rand angekommen 
ist. 


WaitBOVP(ViewPort); 
AO 


ViewPort: Zeiger auf den Viewport, auf dessen voll- 
ständige Darstellung Sie warten wollen. 


Setzt einen Pixel an der Position x,y. 
Writepixel( RastPort, x, y) 
Al DO Di 
RastPort: Zeiger auf den RastPort, in dem ein Punkt 
gesetzt werden soll. 


x, y: Relative (zur linken oberen Ecke des RastPorts) 
Koordinaten des zu setzenden Punktes. 
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In diesem Anhang finden Sie für die Hardwarepro- 
grammierung des Blitters eine kurze Beschreibung 
seiner Register. 


BLTAFWM (044) 
(BLiTter: source A, First Word Mask) 
BLTALWM (046) 


(BLiTter: source A, Last Word Mask) 


Die Bitmuster dieser beiden Register werden mit dem 
ersten, beziehungsweise letzten Wort jeder kopierten 
Daten-Zeile "geANDet". Somit ist es möglich den 
Anfang und das Ende einer zu kopierenden Daten-Zeile 
der Quelle A nicht nur Wortweise, sondern auch 
Bitweise festzulegen. Beim Füllen oder Lienien zeich- 
nen mit dem Blitter sollten diese Bits alle auf 1 
gesetzt sein. 


BLTCONO (040) 
(BLiTer CONtrol register 0) 


BLTCONI1 (042) 
(BLiTer CONtrol register 1) 


Diese beiden Kontrollregister werden zusammen für 
die Steuerung der Blitter-Operationen benutzt. Je- 
weils einer der beiden Modi Area und Line wird durch 
das Bit 0 aus BLTCONI aktiviert. Die folgende Tabelle 
ordnet den einzelnen Bits für die beiden Modi jeweils 
verschieden Namen zu. Die jeweilige Bedeutung eines 
gesetzten Bits entnehmen Sie bitte der darauffolgen- 
den Beschreibung: 
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Area-Modus 


Line-Modus 
BLTCONO BLTCONI 
START3 TEXTURE3 
START2 TEXTURE2 
START1 TEXTUREI 
STARTO TEXTUREO 
1 0 
0 0 
1 0 
1 0 
LF7 0 
LF6 SIGN 
LF5 0 
LF4 SUD 
LF3 SUL 
LF2 AUL 
LFi SING 
LFO LINE 


Die wichtigen Bits im Area-Modus: 


ASH3-0: 
BSH3-0: 
USEA-C: 
USED 
LFI/-O : 


EFE 
IFE 
FCI 
DESC 


LINE 


Der "Shift"-Verschiebewert der Quelle A. 
Der "Shift"-Verschiebewert der Quelle B. 
Modus-Kontrollbit für die Quellen A, B und C. 


Minterm. 


läuft rü 


ckwärts. 


: Modus-Kontrollbit für das Ziel D. 
(Logic Function) Diese Bits enthalten 


das 


: (Exclusive Fill Enable) 
: (Inclusive Fill Enable) 
: (Fill Carry Input) 

: (DEScending Control] 


bit) Der Kopiervorgang 


: Für den Area-Modus gelöscht. 
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Die wichtigen Bits im Line-Modus: 
START3-0 : Diese Bits geben den Startpunkt der Linie 


an. 

TEXTURE3-0: 

LF7-0 : (Logic Function) Diese Bits enthalten das 
Minternm. 

LINE : Für den Line-Modus gesetzt. 


Die Bits SUD, SUL und AUL legen den Oktanten fest, 
indem die Linie gezeichnet wird: 


Okt SUD SUL AUL 


SAU BRWMN 
POoOoOormrmoonm 
oororrmom 
SOOOoOoMrMRrRHRO 


BLTSIZE (058) 
(BLiTter start and SIZE) 


Im Area-Modus enthält dieses Register die Breite und 
die Höhe der Blitter-Operation. Im Line-Modus muß die 
Breite auf zwei gesetzt werden, die Höhe entspricht 
dann der Länge der Linie. Dabei enthalten die Bits 0 
bis 5 die Breite in Worten, die Bits 6 bis 15 die 
Höhe (Länge) in Pixeln. ACHTUNG: wird dieses Register 
beschrieben, so startet der Blitter sofort mit seiner 
Operation, also dieses Register bitte als letztes 
beschreiben. 
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BLTxDAT (074) 
(BLiTter source x DATa register) 


Diese drei Register (das "x" steht für eine der 
Quellen A, B oder C) halten interne Daten für den 
Blitter bereit. Für den Line-Modus gilt noch folgen- 
des: BLTADAT wird als Indexregister benutzt und muß 
mit 8000 initialisiert sein. BLTBDAT wird zur Muste- 
rung der Linie benutzt. Soll kein Linienmuster ver- 
wendet werden, muß BLTBDAT auf $FF gesetzt werden. 


BLTxMOD (064) 
(BLiTter MODulo) 


Diese vier Register (das "x" steht für eine der 
Quellen A, B, € oder das Ziel D) enthalten den 
Modulo Wert, der am Ende einer Zeile automatisch zu 
dem jeweiligen Adreßzeiger hinzugezählt wird. Damit 
wird am Ende einer Zeile automatisch zu dem Anfang 
der nächsten gesprungen. 


BLTxPTH (050) 
(BLiTter PoinTer to x, High) 
BLTxPTL (052) 
(BLiTter PoinTer to x, Low) 


Diese vier Registerpaare (das "x" steht für eine 
der Quellen A, B, C oder das Ziel D) enthalten 
jeweils den Low- und High-Anteil des Adreßzeigers auf 
den zu "x" gehörenden Speicherbereich. Diese Adreß- 
zeiger sind jeweils 18 Bits lang, wobei in BLTXxPTL 
die 15 Low-Bits und in BLTxPTH die übrigen drei High- 
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Bits stehen. Am Anfang der Blitteroperation zeigen 
diese Adreßzeiger auf das jeweils erste betroffene 
Wort, am Ende auf das jeweils zuletzt betroffene. 
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Literaturverzeichnis: 


William M. Newman, Robert F. Sproull 
Grundzüge der Interaktiven Computergrafik 
McGraw-Hill Book Company GmBH 


In diesem Buch werden die wesentlichen Themen der 
Computergrafik in Theorie und Praxis (PASCAL) behan- 
delt. 


Heinz-Otto Peitgen, Dietmar Saupe 
The Science of Fractal Images 
Springer-Verlag 


Enthält nicht nur die Theorie über Berechnungen von 
fraktalen Grafiken, also auch L-Systeme und Land- 
schaften, sondern neben zahlreichen Abbildungen auch 
die dazu notwendigen Algorithmen in einem gut ver- 
ständlichen, Modula-2 Code. 


Melvin L. Prueitt 
Art and the Computer 
McGraw-Hill Book Company 


Ein Bildband mit fast 300 farbigen Abbildungen, die 
fast alle im Los Alamos National Laboratory entstan- 
den. Es enthält leider nur wenig Hinweise über die 
Entstehung der Grafiken, ist jedoch dem ComputerGra- 
fiker zur Inspiration durchaus zu empfehlen. 
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Amiga ROM Kernel Reference Manual: Includes & Auto- 
docs Addison Wesley 


Eines der englischen Standard-Werke zum Amiga, das 
nicht nur die dokumentierten Include-Files enthält, 
sondern auch sämtliche Systemroutinen beschreibt. 


Amiga Hardware Reference Manual 
Addison Wesley 


Wer näheres über die Hardware der Coprozessor wis- 
sen möchte, findet in diesem Buch sämtliche Register 
der einzelnen Prozessoren gut dokumentiert. 


Ernst A. Heinz 
Amiga Basic Profibuch 
Maxon 


Nicht nur ein Buch für den BASIC-Programmierer, 
sondern für jeden, der in die Geheimnisse der System- 
programmierung des Amigas eingeweiht werden möchte. 


Wolf-Gideon Bleek, Bruno Jennrich, Peter Schulz 
Amiga Intern Band 2 
Data Becker 


Für den "aktiven" Programmierer ein wichtiges Nach- 


schlagewerk, vor allem wegen der ausführlichen Auf- 
listung der Systemroutinen der Libraries und Devices. 
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